Bonjour tout le monde


Je cherche un moyen de simplifier le code suivant


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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
 
ilot = Range("B28").Value
 
 
 
ActiveSheet.ChartObjects("Graphique 1").Activate
 
With ActiveChart.PivotLayout.PivotTable.PivotFields("SECTEUR")
 
 
 
 
                If ilot Like "ILOT_3_AXES" Then
 
                                        .PivotItems("ILOT_3_AXES").Visible = True
                                        .PivotItems("ILOT_4_AXES").Visible = False
                                        .PivotItems("ILOT_BRIDES").Visible = False
                                        .PivotItems("ILOT_CITIZEN").Visible = False
                                        .PivotItems("ILOT_CU").Visible = False
                                        .PivotItems("ILOT_GARRET").Visible = False
                                        .PivotItems("ILOT_MAZAK").Visible = False
                                        .PivotItems("ILOT_MULTIAXE").Visible = False
                                        .PivotItems("ILOT_PRECISION").Visible = False
                                        .PivotItems("ILOT_SCIES").Visible = False
 
 
 
                ElseIf ilot Like "ILOT_4_AXES" Then
 
                                        .PivotItems("ILOT_4_AXES").Visible = True
                                        .PivotItems("ILOT_3_AXES").Visible = False
                                        .PivotItems("ILOT_BRIDES").Visible = False
                                        .PivotItems("ILOT_CITIZEN").Visible = False
                                        .PivotItems("ILOT_CU").Visible = False
                                        .PivotItems("ILOT_GARRET").Visible = False
                                        .PivotItems("ILOT_MAZAK").Visible = False
                                        .PivotItems("ILOT_MULTIAXE").Visible = False
                                        .PivotItems("ILOT_PRECISION").Visible = False
                                        .PivotItems("ILOT_SCIES").Visible = False
 
 
End if

J'ai bien essayé de faire les truc que je trouvais sur internet mais la il s'agit des PivotItems d'un graphique lié à un tableau et non du tableau en lui même, je pense que c'est pour ça que ce que je trouve sur internet ne marche pas.

Quelqu'un aurait une idée pour m'aider à simplifié ce code parce que j'ai encore BEAUCOUP de PivotItems à géré plus tard

Merci d'avance