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
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
Utilisez l’évènement de feuille Worksheet_SelectionChange :
VB:
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