Bonjour le forum

J'ai à utiliser une ComboBox dans ma macro via un UserForm. Je lui affecte des valeurs statiques comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Private Sub ComboBox1_DropButtonClick()
ComboBox1.Clear
    With ComboBox1
        .AddItem "val1"
        .AddItem "val2"
        .AddItem "val3"
    End With
End Sub
Je voudrai qu'une fois cliquée, la valeur reste affichée dans ma comboBox (la liste déroulante refermée) or elle ne le fait pas. J'ai regardé sur ce Topic : http://silkyroad.developpez.com/VBA/...serForm/#LII-F et je retrouve une fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part
.ListIndex
. Je suis perdu dans son utilisation (qui renvoie une chaine de caractère située dans la ComboBox).

En plaçant ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Private Sub ComboBox1_Click()
 With ComboBox1
  MsgBox "Index = " & .ListIndex
 End With
End Sub
Il me l'affiche après affichage de la MsgBox, seulement je ne souhaite pas que la MesBox s'affiche, je n'en ai pas le besoin.

Avez-vous des pistes à explorer? Je ne sais plus où trop chercher.
Merci d'avance!

BlackMountain