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
