Boucler tous les TCD dans toutes les feuilles d'un classeur

  • Initiateur de la discussion Initiateur de la discussion Egruat
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Egruat

XLDnaute Occasionnel
Bonjour,

Je cherche à boucler tous les TCD dans toutes les feuilles d'un classeur. Ma macro fonctionne mais ne boucle pas toutes les feuilles. Je voudrais eviter de compter mes feuilles avant car il semble que cela ralentisse le traitement.

Merci de votre aide !

Sub change_country()

Dim PT As PivotTable, Country As String, pi As PivotItem

Sheets("Tables").Select
C = Range("A1")

For Each Sheet In Workbooks

For Each Table In Worksheets

For Each PT In ActiveSheet.PivotTables

For Each pi In PT.PivotFields("Country").PivotItems
PT.PivotFields("Country").CurrentPage = C

Next
Next

Next

Next

End Sub
 
Re : Boucler tous les TCD dans toutes les feuilles d'un classeur

Bonjour
Coucou Modeste geedee😉

Si tous les TCD reposent sur la même source, un simple segment connecté à tous les TCD fera le job ! Tu as 2010 profites-en !
 
Re : Boucler tous les TCD dans toutes les feuilles d'un classeur

@ Modeste Geedee: je ne comprends pas ton correctif: il s'agit pour moi d'appliquer un filtre à un champ pour tous les tCD dans toutes les feuilles de mon classeur

@ chris: malheureusement, l'utilisation d'un segment commun à tous les TCD rend le fichier instable et plante régulièrement. C'est un bug d'EXcel que Microsoft devra corriger
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
7
Affichages
211
Réponses
2
Affichages
201
Retour