OVH Cloud OVH Cloud

Pb Combobox

2 réponses
Avatar
Michel.Girard
Bonsoir
J'ai un combobox sur un userform, il y a une liste déroulante.
Mais lorsqu'un utilisateur change directement les valeurs dans le combo,
cela plante et me dit : erreur d'exécution 13*, et cela plante ?
Comme faire afin que si un utilisateur choisit une valeur qui n'appartient
pas à la liste lancer un msgbox ?
Merci beaucoup
Michel

For i = 2000 To 2010
ComboBox1.AddItem i
Next i
ComboBox1 = Year(Date)

2 réponses

Avatar
Michel Pierron
Bonsoir Michel;
Mets la propriété Style du combobox à 2 (fmStyleDropDownList) pour que
l'utilisateur ne puisse pas changer la valeur.
MP

"Michel.Girard" a écrit dans le message de
news:
Bonsoir
J'ai un combobox sur un userform, il y a une liste déroulante.
Mais lorsqu'un utilisateur change directement les valeurs dans le combo,
cela plante et me dit : erreur d'exécution 13*, et cela plante ?
Comme faire afin que si un utilisateur choisit une valeur qui n'appartient
pas à la liste lancer un msgbox ?
Merci beaucoup
Michel

For i = 2000 To 2010
ComboBox1.AddItem i
Next i
ComboBox1 = Year(Date)







Avatar
Michel.Girard
Merci beaucoup Michel
Que veut dire Style sur 2 ?
Michel

"Michel Pierron" a écrit dans le message de news:
Ox$
Bonsoir Michel;
Mets la propriété Style du combobox à 2 (fmStyleDropDownList) pour que
l'utilisateur ne puisse pas changer la valeur.
MP

"Michel.Girard" a écrit dans le message
de
news:
Bonsoir
J'ai un combobox sur un userform, il y a une liste déroulante.
Mais lorsqu'un utilisateur change directement les valeurs dans le combo,
cela plante et me dit : erreur d'exécution 13*, et cela plante ?
Comme faire afin que si un utilisateur choisit une valeur qui
n'appartient
pas à la liste lancer un msgbox ?
Merci beaucoup
Michel

For i = 2000 To 2010
ComboBox1.AddItem i
Next i
ComboBox1 = Year(Date)