Bonjour,

Je voudrais effectuer une recherche au fur et à mesure de la saisie depuis la textbox d'une userfom.
J'arrive à faire cette recherche mais qu'avec le mot complet.
Voilà ce que j'ai pondu avec l'aide de qqes forum. (voir code à la fin)

Est-ce que vous auriez une idée de comment faire ?
Il me semble avoir vu qqe chose la dessus sur internet, mais je n'arrive pas à remettre l'oeil dessus.

Merci pour votre aide.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
    ' s'il y a une saisie j'attaque la recherche
    If TextBox <> "" Then
        ' je vais chercher la dernière ligne écrite
        Dercell = Worksheets("FichesClient").Range("A65536").End(xlUp).Address
        'j'initialise ma plage de recherche
        Set Plage = Worksheets("FichesClient").Range("A3:" & Dercell)
 
        For Each Cellule In Plage
          If Cellule.Value <> "" Then
            Posit = Application.WorksheetFunction.Find(TextBox.Value, Cellule.Value, 1)
            If Posit > 0 Then
                ' incrémentation num liste
                NumeroLigne = NumeroLigne + 1
                'je charge la liste
                With ListBoxClient
                    .ColumnCount = 2
                    .ColumnWidths = "22;190"
                    .AddItem NumeroLigne
                    .List(.ListCount - 1, 1) = Cellule.Value
                End With
            End If
          End If
        Next
 
    End If