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