Affichage de valeur sélectionnée dans ComboBox

Bonjour le forum :)

J'ai à utiliser une ComboBox dans ma macro via un UserForm. Je lui affecte des valeurs statiques comme suit :

Code:

---

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:

---

.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:

---

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

Bonjour,

essai ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub UserForm_Initialize()   ComboBox1.Clear With ComboBox1 .AddItem "val1" .AddItem "val2" .AddItem "val3" End With   End Sub

---

Et bien si tout était aussi simple à résoudre :)... Du coup j'aimerai bien comprendre pourquoi ça ne fonctionnait pas.
1. Comment ça se faisait qu'en sélectionnant la valeur avant avec le menu déroulant cette dernière ne s'est pas affichée.
2. Comment ça se fait également qu'après le code faisant afficher la MsgBox la valeur s'est affichée?

Une idée?

Désolé je ne saurais pas répondre pourquoi.
Peu être une personne plus expérimentée le saura.

Si mon exemple te convient, c'est le principal.

Ton exemple me convient parfaitement, Merci beaucoup pour ça ;).

Citation:

---

Envoyé par BlackMountain

Et bien si tout était aussi simple à résoudre :)... Du coup j'aimerai bien comprendre pourquoi ça ne fonctionnait pas.
1. Comment ça se faisait qu'en sélectionnant la valeur avant avec le menu déroulant cette dernière ne s'est pas affichée.
2. Comment ça se fait également qu'après le code faisant afficher la MsgBox la valeur s'est affichée?

Une idée?

---

tu peux tester ce code :

Code:

---

1 2 3

Private Sub ComboBox1_DropButtonClick() MsgBox "Evenement DropButtonClick" End Sub

---

le message va s'afficher 2 fois.
Une première fois lorsque tu clics sur le bouton pour afficher la liste et une fois que auras sélection un élément de la liste.

la première fois tout va bien, on vide la liste (.Clear) et on ajoute les 3 éléments.
la seconde, Aie ! la liste est ouverte mais quand je sélection un élément, le .Clear est à nouveau exécuté. Donc le contenu est effacé avant de remettre les éléments dans la liste mais pas le ComboBox.