Coder (sélectionner tout) TCD

Bonjour à tous,

Voici ma question, via VBA j'actualise un tableau croisé dynamique. Pour le moment facile.

Puis dans la partie "Étiquettes de lignes" de mon TCD, via VBA, je souhaite cocher (sélectionner tout) et décocher (vide).

Est ce que quelqu'un sait comment faire pour coder cette action ?

D'avance, merci.

pour décocher vide

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("COMMUNE").PivotItems("(blank)").Visible = False

adapte COMMUNE à ta situation

pour tout cocher, cela se complique !!! il faut cocher un à un toutes les occurrences possibles, donc les détecter aussi en VBA

Bonjour,

pour tout cocher, cela se complique !!! il faut cocher un à un toutes les occurrences possibles, donc les détecter aussi en VBA

ou peut-être :

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date").ClearAllFilters

Noms du PivotTables et PivotFields à adapter.

Bonne journée

Parfait, ça fonctionne.

Merci beaucoup pour votre aide.

cousinhub a écrit :

ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Date").ClearAllFilters

Thanks !