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 :
En vous remerciant par avance de votre aide.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Cordialement.
Partager