OVH Cloud OVH Cloud

Programmer le clic droit

6 réponses
Avatar
mini_bn42
Bonjour à tous,
J'aimerais savoir si sous vba il y a possibilité de programmer le clic droit
de la souris pour executer une macro, ou pour ouvrir une userform. Merci
d'avance pour votre aide.

6 réponses

Avatar
Pierre Fauconnier
Bonjour

Tu as les évènements
Worksheet_BeforeRightClick pour une feuille précise et
Workbook_SheetBeforeRightClick pour toutes les feuilles du classeur

Ces évènements te permettent de gérer le clic droit au niveau d'une feuille
ou du classeur

Ok?


--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"mini_bn42" a écrit dans le message de
news:
Bonjour à tous,
J'aimerais savoir si sous vba il y a possibilité de programmer le clic
droit
de la souris pour executer une macro, ou pour ouvrir une userform. Merci
d'avance pour votre aide.


Avatar
mini_bn42
Rebonjour,

Juste une petite question, n'est-il pas possible de gérer le clic droit
ailleurs qu'au niveau d'une feuille de calcul, par exemple rien qu'en
cliquant sur une userform. Merci de votre aide.
Avatar
isabelle
bonjour ,

il existe,

UserForm_Click()
et
UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

mais pas de RightClick

isabelle


Rebonjour,

Juste une petite question, n'est-il pas possible de gérer le clic droit
ailleurs qu'au niveau d'une feuille de calcul, par exemple rien qu'en
cliquant sur une userform. Merci de votre aide.


Avatar
Daniel
Bonjour.
Oui mais j'ai déjà dû ajouter une commande dans le menu du clic droit.
C'était dans une autre vie, mais je peux rechercher si c'est indispensable.
Cordialement.
Daniel
"isabelle" a écrit dans le message de news:

bonjour ,

il existe,

UserForm_Click()
et
UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

mais pas de RightClick

isabelle


Rebonjour,

Juste une petite question, n'est-il pas possible de gérer le clic droit
ailleurs qu'au niveau d'une feuille de calcul, par exemple rien qu'en
cliquant sur une userform. Merci de votre aide.




Avatar
Pierre Fauconnier
Bonjour

Au niveau d'un userform, il existe MouseUp avec traitement du bouton

Private Sub UserForm_MouseUp(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If Button = 2 Then MsgBox "Clic droit"
End Sub

Ok?


--
Pierre Fauconnier ()
"Le bonheur n'est pas au bout du chemin. Le bonheur EST le chemin ( proverbe
zen )
Remplacez nospam.nospam par pfi.be pour répondre. Merci

"mini_bn42" a écrit dans le message de
news:
Rebonjour,

Juste une petite question, n'est-il pas possible de gérer le clic droit
ailleurs qu'au niveau d'une feuille de calcul, par exemple rien qu'en
cliquant sur une userform. Merci de votre aide.


Avatar
Jacques93
Bonjour isabelle et mini_bn42

Pas de RightClick sur un UserForm, mais un événement :

Private Sub UserForm_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, _
ByVal X As Single, _
ByVal Y As Single)
If Button = 2 Then
MsgBox "Click droit"
End If
End Sub

bonjour ,

il existe,

UserForm_Click()
et
UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

mais pas de RightClick

isabelle


Rebonjour,

Juste une petite question, n'est-il pas possible de gérer le clic
droit ailleurs qu'au niveau d'une feuille de calcul, par exemple rien
qu'en cliquant sur une userform. Merci de votre aide.




--
Cordialement,

Jacques.