Afficher une colonne [Résolu]

Signaler
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
-
Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
-
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.cjoint.com/c/IJFuZqv2nih
Merci pour votre aide
Cordialement


Configuration: Windows / Firefox 70.0


2 réponses

Messages postés
12275
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
21 septembre 2020
694
bonjour, apparaître comment à l'écran? quel moment?
Messages postés
6924
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
21 septembre 2020
549
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à

Messages postés
2059
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
12 septembre 2020
340
Bonjour
Merci pour ta réponse
exactement ce que je souhaitais
Bonne journée
Cordialement