Créer zone de recherche pour Liste de films

[Oranger]

Bonjour,

Je cherche à créer une zone de recherche (comme celle de google) dans le but de créer une application pour gérer mes films. J'ai donc créer une combobox qui se met à jour en fonction du contenu tapé par l'utilisateur. Cependant je voudrait également qu'à chaque caractère saisie par l'utilisateur la liste déroulante s'affiche avec la liste des films correspondants. J'ai réussi à la faire avec le code ComboBox1.DropDown cependant on est obligé de cliquer sur la flêche pour parcourir les films.

Je joins une image qui sera peut-être plus explicite sur ce que je cherche à faire



Merci à tous ceux qui prendront du temps pour m'aider.

Cdlt,

 

[tototiti2008]

Re : Créer zone de recherche pour Liste de films

Bonjour Oranger,

Peut-être juste comme cela ?

Private Sub ComboBox1_Change()
strSearch = ComboBox1
ComboBox1.Clear
'ComboBox1 = ""
For i = 2 To 6
    If Mid(Feuil1.Cells(i, 1), 1, Len(strSearch)) = strSearch Then
        ComboBox1.AddItem Feuil1.Cells(i, 1)
    End If
Next i
ComboBox1.DropDown
ComboBox1 = strSearch
End Sub

 

[Oranger]

Re : Créer zone de recherche pour Liste de films

c'est exactement ce que je voulais faire. merci beaucoup tototiti2008.