Microsoft 365 TEXTBOX pour filtrer un TCD

[NikonvsWild]

Bonjour à tous!
Je bloque sur le sujet.

Je souhaiterai créé une TEXTBOX (TextBox1) pour filtrer le contenu de la colonne "E" de mon TCD (en-tête : "Nom_Prénoms") selon ce que je frappe, lettre par lettre.
L'idée : c'est de taper quelque chose et de retrouver la personne (comme le milieu de son prénom, le début ou la fin)
Je souhaiterai une TXTBOX plutôt que le filtre du TCD ou que des segments pour cette feuille en particulier.

J'ai fait ce système sur un tableau structuré qui n'est pas un TCD, et cela fonctionne très bien.
Mais appliqué sur le TCD cela ne fonctionne pas (erreur 1004)
Savez-vous pourquoi ?

Ci-joint le code que j'ai mis pour filtrer la colonne E (l'entête "Noms_Prénoms" se trouve en E19) TCD avec la Textbox :

Private Sub TextBox1_Change()

Dim filtre As String
filtre = "*" & Me.TextBox1.Text & "*"


If Sheets("INFO CANDIDAT").AutoFilterMode Then
    Sheets("INFO CANDIDAT").AutoFilterMode = False
End If
Application.ScreenUpdating = False
Sheets("INFO CANDIDAT").Range("E19").AutoFilter Field:=5, Criteria1:=filtre
Application.ScreenUpdating = True
End Sub

Le débogage me pointe cette ligne :

Sheets("INFO CANDIDAT").Range("E19").AutoFilter Field:=5, Criteria1:=filtre

Savez-vous ce qu'il faut faire ?
En vous remerciant pour toute aide!

 

[Hecatonchire]

Bonjour,

Normalement on ne peut activer ce type de filtre sur un TCD.

Il existe une astuce permettant de le faire manuellement (pas par VBA).
Je viens de tester en VBA : j'arrive a activer l'outil Filtre mais cela échoue lors du choix des critères.

Tu pourrais passer peut être par un segment ou utiliser la fonction PIVOTER.PAR (pas un TCD mais une table de résultat)

 

[Dranreb]

Bonsoir.

Je souhaiterai une TXTBOX plutôt que …

Pourquoi pas une ComboBox tant qu'à faire ?
Joignez un classeur si ça vous intéresse, que je l'équipe d'au moins un module de service nécessaire.

 

[Hecatonchire]

3 solutions (segment, filtre du TCD, fonction PIVOTER.PAR)