Click droit souris et listbox

Bonsoir à tous,

Pour le clic droit on le récupère dans les controles forms avec l'évènement mousedown comme suit:

Private Sub ListBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Select Case Button
Case 1: MsgBox "clic gauche"
Case 2: MsgBox "clic droit"
Case 4: MsgBox "clic du milieu"
End Select
End Sub


A+++

Re,

oups je fatigue un copier coller de l'aide VBA fera l'affaire poour comprendre les 2 évènements
"Interviennent lorsque l'utilisateur clique sur un bouton de la souris. MouseDown se produit lorsque l'utilisateur appuie sur le bouton de la souris ; MouseUp se produit lorsque l'utilisateur relâche le bouton de la souris."

A+++