Discussion :

[jb28150]

Bonjour,

Je souhaite trouver une astuce permettant de vérifier si la valeur saisie dans la ComboBox, fait bien partie de la liste qui "alimente" la RowSource de la ComboBox.

J'ai dans un premier temps pensé à paramétrer le Style de la ComboBox sur "2-fmStyleDropDownList". Le désavantage de cette manipulation est que je ne peux plus commencer à écrire les premières lettres de la ComboBox car après avoir saisie 1 ou 2 lettres, la ComboBox se "fige", et je ne peux pas effacer les premières lettres saisies. Je ne peux que sélectionner les mots commençant par les lettres saisies.

Quelles solutions me proposez-vous ?

[patricktoulon]

re
ben c'est simple en fait
quand tu tape au clavier une chaine la combo selectionne un item correspondant (le premier)
il te suffit de tester le listindex puis de tester la chaine de l'item a ce que tu a taper

pourquoi ces deux test

parceque plus tu avance en tapant ton texte plus la selection de l'item se precise MAIS si a un moment donné la chaine tapée ne correspond a rien c'est le dernier item autoselectionné qui reste

voila pourquoi le 2d test est necessaire
si le test te dit oui il fait forcement parti du rowsource

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim t
Private Sub ComboBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    TextBox1.Value = ""
    t = ""
    ComboBox1.Value = ""
End Sub
Private Sub ComboBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    t = t & Chr(KeyAscii)
    TextBox1 = TextBox1 & vbCrLf & "lettre tapée= " & t & " et le 1er  plus proche  est  " & ComboBox1.Value & " en position " & ComboBox1.ListIndex
    If ComboBox1.Value = t Then MsgBox "la chaine " & ComboBox1.Value & " figure bien dans le rowsource"
End Sub

il y a d'autre moyen bien sur comme un simple find chaine sur address du rowsource
et j'en passe