Recherche incrémentale
Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 117 fois - Téléchargée 59 fois
Contenu du snippet
Pour ce code vous avez besoin d'une combobox appelée combo1 et d'une textbox appelée text1
J'ai mis en dessous le code si l'on utilise une liste.CE code fonctionne ausi bien pour les Lettres que pour les chiffres
C'est sur que ce code n'est pas un " LE MEILLEUR PROGRAMME " mais il evite de se casser la tête à la chercher..et perdre du temps...
J'ai mis en dessous le code si l'on utilise une liste.CE code fonctionne ausi bien pour les Lettres que pour les chiffres
Source / Exemple :
Private Sub Text1_Change()
Dim Lettre As String
Dim i, Nombre As Integer
If Text1.Text = "" Then Combo1.Text = ""
Lettre = Text1.Text
Nombre = Len(Text1.Text)
If Nombre = 0 Then Nombre = 1
For i = 0 To Combo1.ListCount - 1
If Mid(UCase(Combo1.List(i)), 1, Nombre) = UCase(Lettre) Then
Combo1.Text = Combo1.List(i)
Combo1.SelLength = Len(Combo1.List(i))
Exit Sub
End If
Next
End Sub
-------------------------------------------------
Dim Lettre As String
Dim i,J Nombre As Integer
For i = 0 To List1.ListCount - 1
List1.Selected(i) = False
Next
Lettre = Text1.Text
Nombre = Len(Text1.Text)
If Nombre = 0 Then Nombre = 1
For i = 0 To List1.ListCount - 1
If Mid(UCase(List1.List(i)), 1, Nombre) = UCase(Lettre) Then
List1.Selected(i) = True
For J = 0 To i - 1
List1.Selected(J) = False
Next
Exit Sub
End If
Next
End Sub
Conclusion :
C'est sur que ce code n'est pas un " LE MEILLEUR PROGRAMME " mais il evite de se casser la tête à la chercher..et perdre du temps...
Commentaires
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
60a noter qu'un SendMessage CB_FINDSTRING aurait tout aussi bien fait l'affaire :p (recherche sur le début des items d'un ComboBox)
mais quelqu'un pourrait me dire comment faire pour rendre insensible la casse ?
merci
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.