Bonjour Laurent, le Forum
Dans ce cas.... pourquoi alors ne pas utiliser une ListBox ?
Essaie avec le MatchRequired = True, mais ça n'empèchera pas vraiment de saisir n'importe quoi, mais par contre le User sera stoppé dès que la ComboBox perdra le Focus.
Sinon on peut aussi dans le plus pûr style bricolage, utiliser l'évènement :
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.ComboBox1 = ""
End Sub
Et puis finalement je me suis dit ça fait vraiment bizarre qu'il n'y ait pas d'autres solution plus "propres" j'ai un peu cherché et j'ai vu ce "Style"... En fait VBA a tout prévu, en fait c'est pour les gens comme toi qui utilise une ComboBox pour en faire une ListBox....
Private Sub UserForm_Initialize()
With Me.ComboBox1
.AddItem "Toto"
.AddItem "Zaza"
.AddItem "Lulu"
.Style = fmStyleDropDownList '<<<<<<<<<<< BINGO
End With
End Sub
Bon App
@+Thierry