Recherche incrémentale

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_ITALIA)