Filtrer la source d'un combo au fur et à mesure de la saisie
modafine
Messages postés8Date d'inscriptionmardi 26 juin 2007StatutMembreDernière intervention17 décembre 2008
-
24 nov. 2008 à 15:12
jmf0
Messages postés1566Date d'inscriptionmardi 26 décembre 2000StatutMembreDernière intervention 5 avril 2013
-
24 nov. 2008 à 18:12
Bonjour.
J'ai une question relative aux combobox.
Je souhaite ajouter la fonctionnalité suivante:
Dès qu’on tape des caractères dans le champ éditable du combobox , la
liste est filtrée et ne laisse apparaître que les libellés commençant
par ces lettres.
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009 24 nov. 2008 à 15:18
Bonjour,
tu veux un truc dans ce genre???
Private Sub Combo1_Change()
Dim i As Long
Dim sel As Long
Dim trouv As Boolean
For i = 0 To Combo1.ListCount - 1
sel = Len(Combo1.Text)
If (StrComp(Left$(Combo1.List(i), sel), Combo1.Text, vbTextCompare) = 0) Then
Combo1.ListIndex = i
Combo1.SelStart = sel
Combo1.SelLength = Len(Combo1.Text) - sel
Exit For
End If
Next i
End Sub
jmf0
Messages postés1566Date d'inscriptionmardi 26 décembre 2000StatutMembreDernière intervention 5 avril 20138 24 nov. 2008 à 18:12
Bonjour,
"et ne laisse apparaître que les libellés commençant par ces lettres"
m'interpelle !
Question : ta ComboBox est-elle liée à une base de données ou, au contraire, almimentée par des AddItem ?
Car les approches, dans un cas et l'autre, sont forts différentes ...