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

Résolu
reno421 Messages postés 47 Statut Membre -  
reno421 Messages postés 47 Statut Membre -
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

1 réponse

  1. reno421 Messages postés 47 Statut Membre
     
    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