Soyez le premier à donner votre avis sur cette source.
Snippet vu 5 210 fois - Téléchargée 59 fois
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
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)
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.