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