Problème de boucle sur le filtre d'un TCD

Résolu
reno421 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   -  
reno421 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

L'un de vous pourrait-il, SVP, m'aider.

Je souhaite boucler sur chaque éléement du filtre principale de mon TCD afin de produire un graphique par élément.
Je fais qu'il faut partir avec un for each mais je ne sais pas comment dire à VBA de boucler sur le filtre.

Qui pourr m'aider ?

D'avance merci



A voir également:

1 réponse

reno421 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention  
 
il suffit de boucler ainsi :

 For Each pvtItem In wshTCD.PivotTables("TCD_EAN").PivotFields("EAN").PivotItems
wshTCD.Select
strPvtFldItem = pvtItem
With pvttcd.PivotFields("EAN")
.CurrentPage = strPvtFldItem
End With


next
0