Discussion :

[damsmut]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Commodore]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[damsmut]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[AlainTech]

Euh...

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

A votre avis, à quoi sert-elle?