Detection clic souris

[SAMWRC]

Bonjour a tous,

Mon probleme est le suivant :
J'aimerais pouvoir detecter un clic de souris (en differenciant le clic gauche du clic droit) en tant qu'evenement en VBA.
Quelqu'un a t-il une idee de code VBA qui pourrait marcher ?

Merci d'avance

Sam

 

[phlaurent55]

Re : Detection clic souris

Bonjour Sam,

par macro évènementielle

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
End Sub
pour le clic-droit

à combiner avec
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub
pour le clic-gauche

à+
Philippe

 

[degap05]

Re : Detection clic souris

Bonjour,

Ou bien pour le gauche, un double clic:

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

End Sub


A+

 

[phlaurent55]

Re : Detection clic souris

Re,

voir fichier joint
à+
Philippe

 

[SAMWRC]

Re : Detection clic souris

C'est parfait, c'est exactement ce qu'il me fallait !

Merci beaucoup

 

[Gérard Grillon]

Re : Detection clic souris

Re,

voir fichier joint
à+
Philippe

Merci pour cette communication qui fonctionne parfaitement sur votre feuille jointe. Recopiée dans ma petite application, elle n'a aucun effet ... Peut-être qu'un paramétrage complémentaire est nécessaire ?
A +
Gérard