Recherche incrémentale

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 176 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

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...

A voir également

Ajouter un commentaire

Commentaires

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
62
il l'est deja insensible a la casse...

a noter qu'un SendMessage CB_FINDSTRING aurait tout aussi bien fait l'affaire :p (recherche sur le début des items d'un ComboBox)
Messages postés
7
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
12 juillet 2007

bonjour, ce code est vraiment génial...
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.