action quand click sur cellules

jeffjeff · 1 Décembre 2017

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 · 1 Décembre 2017

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 · 1 Décembre 2017

Bonsoir jeffjeff,

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

edit : bonsoir @Staple1600

jeffjeff · 1 Décembre 2017

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

action quand click sur cellules

jeffjeff

Guest

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

jeffjeff

Guest

Discussions similaires

action quand click sur cellules

jeffjeff

Guest

Staple1600

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

jeffjeff

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency