Afficher une colonne
Résolu
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
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir
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
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir
2 réponses
-
Contributeurbonjour, apparaître comment à l'écran? quel moment?
-
ContributeurBonjour,
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à
