Automatiser un filtre d'un TCD en VBA via une liste
Bonjour,
Je suis en train de créer un tableau de bord mensuel se mettant à jour quotidiennement via des Tableaux Croisés Dynamique (TCD).
Ma problématique :
- automatiser la mise à jour des filtres dans mes TCD.
Ce que je n'arrive pas à faire :
Automatiser la mise à jour du filtre en définissant les données à filtrer.
Exemple :
le 5 du mois dans ma colonne "Nom" qui me sert de filtre dans le TDC, j'ai
- titi
- tata
- toto
Dans mon TCD j'ai besoin de filtrer avec les "noms" suivants :
- titi
- tata
- toto
- tutu
Problème "tutu" n'est toujours pas présent le 5 du mois, mais apparaitra plus tard, le 10 du mois par exemple.
Ma question (enfin me direz-vous) :
Est-il possible de définir une liste de "nom" dans une autre feuille pour automatiser la mise à jour du filtre (ce qui m'arrangerait car j'ai plus de 50 TCD avec des filtres différents),
Ou une solution en VBA ?
Le code que j'utilise et qui bien sur ne fonctionne pas :cry: :
Code:
1
2
3
4
5
6
7
8
9
10
11
| Sub Macro3()
' Macro3 Macro
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Groupe"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Groupe")
.PivotItems("toto").Visible = True
.PivotItems("titi").Visible = True
.PivotItems("tata").Visible = True
.PivotItems("tutu").Visible = True
End With
End Sub |
En vous remerciant par avance de votre aide.
Cordialement.
