action quand click sur cellules

[jeffjeff]

bonjour a vous,
je sais faire apparaitre un USF quand je clique sur la cellule A4 par exemple.
mais je cherche faire la meme chose quand je clique sur une des cellules de la colonne A.
j'ai deja vu cette astuce mais impossible de remettre la main dessus
merci de votre aide

 

[Staple1600]

Re

Voir du côte de WorksheetSelection_Change
Private Sub Worksheet_SelectionChange(ByVal t As Range)
If t.Address = "$A$1" Then
MsgBox "Bonjour " & Application.UserName & Chr(13) & "Nous sommes le: " & Format(Date, "dd/mm/yyyy")
End If
End Sub

EDITION: Bonsoir mapomme

 

[mapomme]

Bonsoir jeffjeff,

Utilisez l’évènement de feuille Worksheet_SelectionChange :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("a:a")) Is Nothing And Target.Count = 1 Then
      MsgBox Target.Address(0, 0), vbInformation
   End If
End Sub

edit : bonsoir @Staple1600

 

[jeffjeff]

merci a vous deux, je vais pouvoir continuer mon travail
bon week end