[vba-e] Liste de choix dans ComboBox

Bonjour,

J'ai créé une combobox dans un userform que j'initialise de la sorte :

Code:

---

1 2 3

Private Sub UserForm_Initialize() ComboBox1.List() = Array("Choix1","choix2","choix3") End Sub

---

Par contre il faut absolument que l'utilisateur sélectionne ce qu'il y'a dans la liste et ne puisse pas écrire son propre texte.

Pour résumé : obligation de choisir un élément de la liste... et rien d'autre

Y'a t il une propriété ou faut-il écrire du code avec des contrôles ?

J'ai trouvé une solution a ton probleme.

Environnement:
J'ai pris un fichier excel vierge et j'y ai créé un UserForm1.
Dessus j'ai juste collé un ComboBox1.

Ensuite, voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim ComboChange As Boolean Private Sub ComboBox1_Change() If ComboChange = True Then ComboChange = False ComboBox1.Text = "" End If   End Sub   Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ComboChange = True End Sub Private Sub UserForm_Initialize() ComboBox1.AddItem "test" ComboBox1.AddItem "crash" ComboBox1.AddItem "yeah" ComboBox1.AddItem "man"   ComboChange = False End Sub

---

Bien entendu, à adapter selon ton cas. Mais de cette façon, tu neutralises tout moyen de taper ton texte directement.

Donc si je comprend bien on ne peux pas bloquer le texte directement via une propriété de la ComboBox :cry:

Moi j'avais trouvé ça comme code en variante du tien :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub ComboBox1_Change() Select Case ComboBox1.Value   Case 1 Résultat = 1 Case 2 Résultat = 2 Case 3 Résultat = 3   End Select     Private Sub CommandButton2_Click()   'Contrôle si un élément de la liste a été sélectionné If ComboBox1.ListIndex = -1 Then MsgBox "Veuillez sélectionner un élément de la liste.", vbCritical, "Choix invalide"   End Sub

---

Merci

Euh...

En VBA, il y a bien une propriété MatchRequired pour les Combo, non?

A votre avis, à quoi sert-elle?