Filter une listbox lorque de la saisie dans textbox

Bonjour à tous!

Je suis novice en VBA et je suis totalement bloqué sur mon code.

En effet, j'aimerais pouvoir filter les données dans une listbox à l'aide d'une textbox. Pas seulement d'après les premières lettres de la liste mais avec n'importe quel texte. Exemple de liste: chapeau, bateau etc, si on tape "eau" dans la textbox, on aura chapeau et bateau dans la listbox. Si possible j'aimerais éviter l'utilisation des userform.

Mon code fonctionne mais je n'arrive pas à modifier mon code lorsque les données pour la listbox ne sont pas sur la même feuille excel et ce qui est cas dans mon ficher de base.

Je vous ai également joint mon exemple.

J'espère avoir pu m'expliquer de manière clair.

d'avance merci pour votre aide!

Bonjour et bienvenue sur le forum

Complète ton code ainsi :

Private Sub ChargeListbox(sFiltre) ' Rechargement du ListBox avec filtrage
    ListBox1.Clear
    For l = 1 To ActiveSheet.UsedRange.Rows.Count
        If Cells(l, 1).Text Like "*" & sFiltre & "*" Then
            ListBox1.AddItem Cells(l, 1).Text
        End If
    Next l
    With Sheets("Feuil2")
        For l = 1 To .UsedRange.Rows.Count
                If .Cells(l, 1).Text Like "*" & sFiltre & "*" Then
                    ListBox1.AddItem .Cells(l, 1).Text
                End If
        Next l
    End With
End Sub

Hello gmb!

Merci beaucoup pour ta réponde rapide et en plus ça fonctionne!!

Merci merci merci!!! Bonne soirée