Afficher resultat filtre d'un tableau structuré dans ListBox

Bonjour,

J'arrive à afficher dans une ListBox une plage filtrée d'un tableau structuré.

Pour filtrer le tableau si OptionButton1 est activée (Commence par) et la saisie dans le TextBox de la ou les premières lettres de l'Item recherché ça fonctionne bien.

Range("Tableau1").AutoFilter Field:=1, Criteria1:="=" & Me.TextBox1 & "*", Operator:=xlAnd

Cependant pour filtrer le tableau si OptionButton2 (Contient) est activée et la saisie dans le TextBox d'un chiffre de l'Item recherché ça fonctionne mais la ListBox n'affiche qu'une seule ligne.

Range("Tableau1").AutoFilter Field:=1, Criteria1:="=*" & Me.TextBox1 & "*", Operator:=xlAnd

Existe-t-il une solution pour afficher dans la ListBox toutes les lignes.

Merci d'avance pour vos réponses.

Salut,

Tu as l'impression que le filtre fonctionne quand tu cliques sur commence, mais en fait c'est ton tableau qui fait que cela fonctionne. Testes en insérant une ligne comme dans la capture d'écran et tu verra que c'est le même problème.

Bonjour,

ci-jointe une proposition

Bonjour thev,
Waouh, merci pour votre réponse, c'est impeccable et encore mieux en remplaçant :

Private Sub Filter_Click()

par

Private Sub TextBox1_Change()

Au passage merci également à Jean-Paul.