Afficher une colonne

Résolu
JCB40 Messages postés 2998 Date d'inscription   Statut Membre Dernière intervention   -  
JCB40 Messages postés 2998 Date d'inscription   Statut Membre Dernière intervention   - 1 nov. 2019 à 09:44
Bonjour,
Je cherche un code VBA pour rechercher une colonne en fonction d'une cellule
si B1 se trouve dans la ligne 4 la colonne ou se trouve cette date doit apparaitre à l'écran
Si vous avez la solution je suis preneur
https://www.ct.com/c/IJFuZqv2nih
Merci pour votre aide
Cordialement


Configuration: Windows / Firefox 70.0


A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 23538 Date d'inscription   Statut Contributeur Dernière intervention    
bonjour, apparaître comment à l'écran? quel moment?
1
Réponse 2 / 2
cs_Le Pivert Messages postés 7904 Date d'inscription   Statut Contributeur Dernière intervention   729
 
Bonjour,

comme ceci déclenché au double clic sur B1: 

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim madate As Date
If Not Application.Intersect(Target, Range("B1")) Is Nothing Then
madate = Format(Target.Value, "dd/mm/yy")
Range("A4").Value = madate
Range("B4").FormulaR1C1 = "=RC[-1]+1"
Range("B4").AutoFill Destination:=Range("B4:AF4"), Type:=xlFillDefault
    End If
End Sub



Voilà

1
JCB40 Messages postés 2998 Date d'inscription   Statut Membre Dernière intervention   463
 
Bonjour
Merci pour ta réponse
exactement ce que je souhaitais
Bonne journée
Cordialement
0