Clic droit sur bouton

[RENE]

Salut tt le monde
Ma question :
Je clique gauche sur mon bouton ca me lance mon UF1
Je voudrais lancer mon UF2 en cliquant sur ce meme bouton mais avec le click droit...
Est ce possible???

A+

 

[RENE]

Re forum

Pas de réponse? Je suppose donc que c'est impossible... :S

 

[guitarde]

Il y a probablement des utilitaires qui permettent de configurer les souris, vba-Excel n'est peut-être pas le meilleur moyen.

Salutations
Eric

 

[Robert]

Bonsoir René, Guitarde, bonsoir le forum,

Si ton bouton est un CommandButton de la barre d'outils Boîte à outils Contrôles, alors ce code fonctionne :

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = xlPrimaryButton Then UserForm1.Show
If Button = xlSecondaryButton Then UserForm2.Show
End Sub

 

[_Thierry]

Bonsoir René, Eric

Si si Eric, vite fait avant de partir développer un truc pour le boulot (y a pas d'heure !!!)

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case 1: MsgBox 'Bouton de Gauche'
Case 2: MsgBox 'Bouton de Droite'
End Select
End Sub

NB Uniquement applicable à un CommandButton ActiveX (Barre d'Outils Contrôle)

Bonne Nuit
@+Thierry

 

[_Thierry]

Arf, Bonsoir Robert au Bifidus Actif plus Rapide Qu'un KarBapapaKiller !

Sorry je mangeai en même temps lol pas raffraichi lol

Bonne Nuit
@+Thierry

 

[Robert]

Bonsoir le fil,

Gaffe Thierry si tu manges pas frais tu va attraper la courante...