Pour un click avec toi

Xl 2007 bonsoir a tous et toutes forum

Voila, je sais pour click droit et double click

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'double click

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'un seul click droit

Mais comment svp faire un SEUL click gauche (left)

Merci a tous pour le petit renseignement et bonne soirée

Raymond

Bonsoir

..... tu faisais n'importe quoi ... pour un clik :

Private Sub Worksheet_Beforeclick(ByVal Target As Range, Cancel As Boolean) 

Amicalement

Nad

Bonjour Dan, forum bonjour,

Merci pour la réponse mais ca n'a pas l'air de fonctionner pour le click gauche avec le code que tu me propose, je souhaiterai sur un click doit ou gauche tester une cellule pour savoir le numero couleur du fond ou de l'écriture.

(1) Ex: si le fond d'une cellule est rouge quand je click dessus que ca affiche dans la boite ici 3

(2) idem pour l'écriture

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox (Selection.Font.ColorIndex)
End Sub

Private Sub Worksheet_Beforeclick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
MsgBox (Selection.Interior.ColorIndex)
End Sub

Merci a vous et bonne journée

Raymond

Edit Dan :

Et non Eliot, c'est pas Dan sur ce coup -ci mais Nad...

Bonne journée.

Dan

Bonjour

Utilise le SelectionChange

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox (Selection.Font.ColorIndex)
End Sub

Amicalement

Nad

Salut les petits gars, forum

Merci pour la reponse, c'est sympa, ca marche

Mais ca me l'affiche dans la boite en deux fois,

-4142 et puis affiche le N°

Voila merci bonne journée Nad-Dan

Raymond