Discussion :

[Hazardo]

Bonjour à tous,

je souhaiterais via une textbox avoir la possibilité de filtrer automatiquement un filtre d'un TCD.

Le filtre de mon TCD se trouve en colonne BD.

J'ai ça pour le moment mais ça ne fonctionne pas car je pense que j'utilise Range plutôt que PivotTable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Tx_Recherche_Change()
Dim rng As PivotTable
Set rng = ActiveSheet.Range("BD").CurrentRegion
With rng
    If Tx_Recherche <> "" Then
        .AutoFilter Field:=2, Criteria1:="=*" & Tx_Recherche & "*", Operator:=xlAnd
    Else
        .Worksheet.ShowAllData
    End If
End With
End Sub

Merci de votre aide,

Cdt

[78chris]

Bonjour

Pourquoi ne pas tout simplement utiliser un segment ?

[Hazardo]

Bonjour

Pourquoi ne pas tout simplement utiliser un segment ?

J'utilise déjà des segments mais je voudrais quelque chose qui recherche à l'intérieur d'un segment car bcp trop de lignes...

[78chris]

RE

On peut dans ces cas là prévoir une colonne dans la source pour préfiltrer : par exemple pour des nom, l'initiale dans un segment puis le nom dans un autre

Un TCD n'est pas un range et ne se filtre pas par autofilter.

Sauf champ de page (ou filtre) il faut une boucle pour tout afficher puis masquer un à un tous les non voulus...