Bonjour
Débutant dans cette matière quelqu'un peut-il m'aider à simplifier ceci?
Sachant que l'intitulé des items peut changer et que je ne veux pas voir apparaître les vides sans pour cela les supprimés.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Tournée" _ ) .PivotItems("803").Visible = True .PivotItems("5501").Visible = True .PivotItems("804").Visible = True .PivotItems("208").Visible = True .PivotItems("5206").Visible = True .PivotItems("9005").Visible = True .PivotItems("302").Visible = True .PivotItems("601").Visible = True .PivotItems("SP-05012").Visible = True .PivotItems("5016").Visible = True End With With ActiveSheet.PivotTables("Tableau croisé dynamique4").PivotFields("Tournée" _ ) .PivotItems("(blank)").Visible = False End With
Merci à vous
Partager