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

Résolu/Fermé

reno421 Messages postés 41 Date d'inscription vendredi 30 janvier 2015 Statut Membre Dernière intervention 16 septembre 2015 - 11 sept. 2015 à 11:55
reno421 Messages postés 41 Date d'inscription vendredi 30 janvier 2015 Statut Membre Dernière intervention 16 septembre 2015 - 15 sept. 2015 à 12:37

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:

Problème de boucle sur le filtre d'un TCD
Photo filtre 7 gratuit - Télécharger - Retouche d'image
Tcd excel - Guide
Filtre teams - Accueil - Visio
Filtre excel ne fonctionne pas sur toutes les lignes ✓ - Forum Excel

1 réponse

Réponse 1 / 1

reno421 Messages postés 41 Date d'inscription vendredi 30 janvier 2015 Statut Membre Dernière intervention 16 septembre 2015
15 sept. 2015 à 12:37

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

Discussions similaires

Mon pc s'allume et s'éteint en boucle

Bibliothèque

La fonction FILTRE n'est plus reconnue

faire une boucle sans VBA

comment contourner la fonction FILTRE