afficher une colonne Résolu/Fermé

Question

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

yg_be · Answer

bonjour, apparaître comment à l'écran?   quel moment?

cs_Le Pivert · Answer

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à

Afficher une colonne

2 réponses

Discussions similaires