XL 2010 Combobox n'autoriser que la liste[RESOLU]

[herve62]

Bonjour à tous
J'aimerai empêcher la saisie quelconque dans une Combo d'USF et donc ne pouvoir utiliser que la liste
J'ai bien mis le style : à 2- fm...... List
mais malgré cela je peux taper un chiffre qui plus et , si j'entre 1 il me met 10 mais là j'explique
Cette liste de 1 à 85 est modifiée à chaque fin de l'Usf , si on fait une saisie avec 1, la fois d'après le 1 n'est plus selectionnable ..etc
donc pour cette exemple le 1 n'existait plus
Et là je ne sais pas si c'est possible ?

 

[herve62]

Bon j'ai contourné en ne laissant que le choix suivant obligatoire
Mais bon si quelqu'un confirme ou pas la possibilité ! merci

 

[Staple1600]

Bonjour

Chez moi, je ne peux rien saisir

Private Sub UserForm_Initialize()
ComboBox1.List = Array("abc", "efg", "hij")
ComboBox1.Style = fmStyleDropDownList
End Sub

Le seul souci, c'est que si je saisi quelque chose, je reviens au choix par défaut.

 

[herve62]

Salut Jean Marie
Oui mais moi ma liste se remplit en calculant le Nbr d'onglets nommés "1", "2" ...etc

 

[ChTi160]

Bonjour Herve
Bonjour JM
Pas de fichier ?
Le mode de remplissage n'est pas important, c'est le :
fmStyleDropDownList qui fait la différence !
Ou alors jouer sur la propriété .MatchEntry

ComboBox1.MatchEntry = fmMatchEntryComplete 'ou ofmMatchEntryNone 'ou fmMatchEntryComplete

un lien :
Bonne fin de Journée
Jean marie

 

[herve62]

fmStyleDropDownList qui fait la différence !

OUI CA C'est FAIT !!!!!!!!!!! et le Complete AUSSI !!
Sinon je suis passé outre

 

[TooFatBoy]

Bonjour,

Le mode de remplissage n'est pas important, c'est le :
fmStyleDropDownList qui fait la différence !

OUI CA C'est FAIT !!!!!!!!!!! et le Complete AUSSI !!

Donc ça doit résoudre le problème, puisque avec le MatchEntry sur "Complete", ça empêche de saisir autre chose que ce qui est dans la liste, me semble-t-il.

 

[job75]

Bonjour herve62, le fil,

Je ne comprends pas, la 1ère chose qui vient à l'esprit c'est :

Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then ComboBox1 = ""
End Sub

A+