Saisie + affichage Alphabétique

Réponse acceptée !
Re correctif (me suis trompé pour les images)

Voici ce que jaimerai obtenir:
J'ai une ComboBox avec une liste dans un Fichier .txt qui s'affiche en cliquant sur la petite flèche à droite.
[img]http://img154.imageshack.us/img154/5301/screenshotiz7.jpg[/img]

Mais comme on peut saisir directement dans la zone de saisie, j'aimerai qu'au fur et mesure qu'une lettre est entrée avoir une liste qui s'affiche avec la 1ère lettre choisie, les 2 première lettres saisie et ainsi de suite....
Afin d'aller au plus vite aux choix de la liste proposée.
[img]Hello

Voici ce que jaimerai obtenir:
J'ai une ComboBox avec une liste dans un Fichier .txt qui s'affiche en cliquant sur la petite flèche à droite.
[img]http://img154.imageshack.us/img154/5301/screenshotiz7.jpg[/img]

Mais comme on peut saisir directement dans la zone de saisie, j'aimerai qu'au fur et mesure qu'une lettre est entrée avoir une liste qui s'affiche avec la 1ère lettre choisie, les 2 première lettres saisie et ainsi de suite....
Afin d'aller au plus vite aux choix de la liste proposée.



Etc. etc.

Merci de votre aide

Bye
[/img]

[img]http://img247.imageshack.us/img247/108/screenshot2ok5.jpg[/img]

Etc. etc.

Merci de votre aide

Bye

Réponse acceptée !
Quelque chose comme ça peut-être ?

Option Explicit
Private CodAsc As Integer

Private Sub ComboBox1_Change()
    Dim Var As String
    Dim I As Integer
   
    Var = ComboBox1
   
    If CodAsc <> 8 And Len(Var) > 0 Then
        For I = 0 To ComboBox1.ListCount - 1
            If UCase(Left(ComboBox1.List(I), Len(Var))) = UCase(Var) Then
                ComboBox1.Text = ComboBox1.List(I)
                ComboBox1.SelStart = Len(Var)
                ComboBox1.SelLength = Len(ComboBox1.List(I)) - Len(Var)
                Exit For
            End If
        Next
    End If

End Sub

MPi

Réponse acceptée !
boucle et suppression des items ne convenant pas

astuce du jour : parcoure ta liste d'Items a l'envers

For i = Combo1.ListCount -1 To 0 Step -1
   If ... Then
      Combo1.RemoveItem i
   End If
Next i