Bonjour,
Je cherche à faire un changer un filtre d'un tcd automatiquement en fonction d'une valeur qui se trouve sur une autre feuille.
La valeur Région se trouve dans ma feuille TDB;
dans ma feuille ou se trouve le TCD, il faut que le tcd reprenne la valeur de la feuille TDB pour mettre à jour le filtre Région de mon TCD

Le code que j'ai trouvé est celui ci :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Public Sub FilterPivotTable()
Sheets("TCD").Activate
 
With ActiveSheet
 
.PivotTables("PivotTable1").PivotFields("Région").ClearAllFilters
.PivotTables("PivotTable1").PivotFields("Région").PivotFilters.Add _
Type:=xlCaptionEquals, Value1:=Worksheets("TDB").Test.Value
End With
 
End Sub
Mais ca bloque sur la partie PivotTables. Le message d'erreur : run time error 1004


Qui peux m'aider please