Les fameux PivotItems

Version imprimable

Bonjour tout le monde :)

Je cherche un moyen de simplifier le code suivant

Code:

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

Bonjour,
Mettre la boucle ci-dessous a la place de ça:

Code:

1
2
3
4
5
6
7
8
9
10
.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

Code:

1
2
3
4
5
6
7
8
dim pvti as pivotitem
for each pvti in ActiveChart.PivotLayout.PivotTable.PivotFields("SECTEUR").pivotitems
  if pvti.name = "ILOT_3_AXES" then 
    pvti.visible = true
  else
    pvti.visible =false
  end if
next pvti

Adapter pour le second if

07/07/2017, 15h39
78chris
Bonjour

Au moins un pivotitem doit être visible : on ne sais pas au départ combien sont visibles donc un test qui met à false risque de planter si c'était l'unique visible.

On commence donc par supprimer le filtre avec ClearAllFilters puis on met à false ce qui ne correspond pas au choix dans une boucle qui teste si le pivotitem <> du choix donc ilot

Et on part des pivotitems pas de ilot afin d'avoir une seule boucle et un seul test
Code:

1 2 3 4 dim pvti as pivotitem for each pvti in ActiveChart.PivotLayout.PivotTable.PivotFields("SECTEUR").pivotitems if pvti.name <> ilot then pvti.visible =false next pvti
Edit : on n'est pas obligé de sélectionner le graph

Code:

Worksheets("NomDeLaFeuille").PivotTables("NomDuTCDLié").PivotFields("SECTEUR").pivotitems

fera la même chose
10/07/2017, 07h57
Rydrake

Merci beaucoup !!!
10/07/2017, 08h09
Rydrake

Désolé du double post mais en faite je me suis trompé, vos réponses ne marchent pas :(

Il y a en faite forcément un moment ou ça plante dû au fait qu'il faut qu'au moins un pivottable reste True...

Comme à chaque fois que la macro est utilisé, elle ne sélectionne qu'un seul PivotTable, des fois elle plante car elle met à False l'unique PivotTable qui était True

Une idée ??
10/07/2017, 08h13
Rydrake

Ah non pardon, c'est la méthode ClearAllFilters que j'avais mal appliqué, je ne la connaissait pas, merci beaucoup