Automatiser la répétition des étiquettes dans un tableau croisé dynamique

Bonjour à tous,

Dans un post précédent, j'avais montré comment répéter les étiquettes de lignes.

Cependant, si vous avez beaucoup de tableaux croisés dynamiques, ceci peut s'avérer assez fastidieux.
Un ancien élève m'a d'ailleurs remonté un bug à ce sujet - perte de la répétition des étiquettes lors de l'actualisation.

Voici donc un petit code qui modifie l'option pour tous les tableaux croisés dynamiques du classeur :

Sub Mise_a_jour_repeter_toutes_les_etiquettes()
Dim pvt As PivotTable
Dim Wks_feuile As Worksheet
'on parcourt toutes les feuilles
For Each Wks_feuile In ThisWorkbook.Worksheets
'on parcourt tous les tableaux croisés dynamiques
For Each pvt In Wks_feuile.PivotTables
pvt.RepeatAllLabels _
xlRepeatLabels
Next
Next
End Sub

En espérant que ceci puisse vous aider !

A bientôt.

Gaetan

Pour marque-pages : Permaliens.

Laisser un commentaire

Votre adresse e-mail ne sera pas publiée. Les champs obligatoires sont indiqués avec *

Ce site utilise Akismet pour réduire les indésirables. En savoir plus sur comment les données de vos commentaires sont utilisées.