Bloquer combobox si élément saisi ou choisi incorrect

Bonsoir

Comment bloquer le combobox.list si l'élément choisi n'y figure pas?
J'ai constaté que même si on saisi un élément qui ne figure pas les éléments de la combobox.list, il n'ya pas de blocage.
Je souhaite que le combobox soit bloquant lorsque le choix ou l'élément saisi ne figure pas dans la plage des éléments de la combobox?

Code:

---

1 2 3 4 5

Private Sub UserForm_Initialize()   ComboBox_Bois1.List = Sheets("Articles").Range("A1:A8").Value   End Sub

---

Bonjour

Drôle d'expression du problème .... qui demeure un mystère .... surtout sans le moindre code ...

Je vais donc essayer de deviner et de te répondre ainsi :
Le choix d'un article dans une combobox ne se constate pas par son évènement Change, mais par son évènement click.

Et l'article sélectionné n'est pas forcément la propriété Value de la combobox qui, elle, peut fort bien n'être d'autre que ce qui est saisi dans la zone d'édition de la combobox.;)

Bonsoir,

Citation:

---

Envoyé par capi81

J'ai constaté que même si on saisi un élément qui ne figure pas les éléments de la combobox.list, il n'ya pas de blocage.

---

Si on saisi un élément qui ne figure pas les éléments de la combobox.list, combobox.listindex est égal à -1 sinon il a la valeur de sa position à partir de zéro.
à toi de voir le code de contrôle à utiliser.

Salut à tous

Merci pour vos réponses.
C'est souvent pas facile de trouver les mots qui siée pour se faire comprendre.
J'ai essayé avec Matchrequired à true (propriété du combobox) et ca fonctionne.
En effet lorsque l'élément choisi ne fait pas parti de la liste déroulante ca empêche de quitter la combobox.

Bonjour à tous.
Sans doute ai-je mal compris, car comment peut-on choisir dans la liste d'un ComboBox un élément qui n'en fait pas partie? :weird:
Cordialement 8-)

Bonjour Transitoire
C'est toute la différence à faire entre "saisir" (une combobox comporte une zone d'édition, où l'on peut "saisir") et "choisir" ;)
Amitiés

Bonjour Transitoire

Tout peut arriver surtout due nous pouvons avons affaire à des utilitaires imprudent.
Si c'est par choix ca sera normal que l'utilisateur choisisse parmi les éléments de la liste.
Mais s'il passe par une saisie, il peut saisir ce qui n’existe dans la liste et il n'y aura pas de blocage.
Du coup notre base de donnée sera impactée par une mauvaise information.
C'est pour pallier ce risque que nous cherchons une solution.

Bonjour #Unparia et merci de votre intervention, je comprend mieux ainsi. :P
Il est vrai que je n'utilise presque jamais de ComboBox.
Cordialement 8-)

Cher # capi81,
en ce qui me concerne, je préfère pour des raisons esthétiques et ergonomiques utiliser une ListBox Couplé à un TextBox.
Pourquoi me direz vous? parce que à l'ouverture, le focus est sur le TextBox, et apparait dessous ou dessus la ListBox avec un certain nombre de choix apparent dans la liste. si celui désiré apparait à l'écran, je le clique. sinon puisque je suis sur le TextBox, j'entre par exemple la première lettre d'un nom au clavier "Z"(Exemple). Aussitot la liste de la ListBox se réactualise avec la lettre "Z" choisi puis la deuxième si "Za"? etc et très rapidement je clique sur le nom désiré sinon c'est que l'entrée est mauvaise puisque la liste devient vide. pas de risque d'erreur. Je suppose que l'on peut faire de même avec un ComboBox, mais je n'aime pas ni son esthétique ni son ergonomie.
Cordialement 8-)

Bonjour le forum
Bonjour le fil

Tu as aussi la propriété Style que tu peux mettre à "fmStyleDropDownList"

@+ Ericcool02

Bonsoir …

Salut unparia !

@Transitoire (salut) : il est dommage de se priver d’un contrôle quelle qu’en soit la raison.
Le remplacer par 2 autres contrôles augmente le nombre de lignes de programmation, non ?
il sera plus intéressant de passer par une liste déroulante ou pas selon le cas et les propriétés y afférentes*.

Pour la demande formulée, laisser la propriété MatchRequired à False, pour éviter un message d’erreur intempestif et nettoyer la saisie :

Code:

---

1 2 3

Private Sub ComboBox_Bois1_Exit(ByVal Cancel As MSForms.ReturnBoolean) If ComboBox_Bois1.ListIndex < 0 Then ComboBox_Bois1 = "": Cancel = 1 End Sub

---

On peut aussi vouloir tester la saisie pour la garder ou pas, mais c’est une autre histoire …

*@Ericcool02 (salut à Toi): voilà une propriété (une des rares non commume) d'une liste déroulante (Combobox) pas de l'autre (ListBox) !

Bonjour

Unparia : merci pour la précision (saisie au lieu de choix).
Transitoire:merci pour votre solution qui me convient.
Merci à tous les intervenants pour vos riches apports.
:D