Discussion :

[CVS67]

Bonjour tous le monde

Comment réduire la sélection dans une combobox au fur et a mesure que l'on tape des caractères

cad si je tape A il ne me reste plus que les lignes commencant par A
puis je rajoute B il ne restera plus que les lignes commencant par AB
etc ceci afin de réduire la sélection lorsque l'on a plus de 50 lignes dans la combobox

merci

ps: merci de rester simple au niveau code afin que je comprenne je ne suis pas un pro

[patricktoulon]

bonjour

ta combobox est rempli comment ????

c'est la qu'il faut jouer et nom pas sur les items de la combo elle même

par exemple

j'ai un classeur feuille 1 en colonne "A"

je prend les 50 premières lignes de la colonne a et les met dans la combo
je me retrouve donc avec 50 items dans ma combobox
maintenant si je tape un morceau du mot ou le mot entier que je cherche dans le combobox et que je clique sur la fleche elle m'affiche que ce que je cherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub ComboBox1_DropButtonClick()
 
With Worksheets(1).Range("a1:a500")
    Set c = .Find(ComboBox1, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ComboBox1.AddItem c.Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
End Sub

voila
comprend tu le principe ??

au plaisir