problème sur pivotitems à cacher
bonjour,
Lors de la génération d'un TCD, j'essaye d'abord de cacher tous mes items d'un champ (Paramtcd(9)) mis en page
voici l'extrait de mon code
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
|
....
Set pt = ActiveSheet.PivotTables(ParamTCD(4))
With pt.PivotFields(ParamTCD(8))
.Orientation = xlPageField
.position = 1
End With
With pt.PivotFields(ParamTCD(9))
.Orientation = xlPageField
.position = 2
End With
pt.PivotFields(ParamTCD(9)).ClearAllFilters
pt.PivotFields(ParamTCD(8)).ClearAllFilters
On Error GoTo Gesterr1 ' si aucun enregistrement groupe
'tout IH Bu groupe par défaut
pt.PivotFields(ParamTCD(9)).CurrentPage = "(All)"
'---- enlever toutes les sélections sur les items possibles
' calcul maximum d' item possible du TCD
maxpivotfield = pt.PivotFields(ParamTCD(9)).PivotItems.Count
With pt.PivotFields(ParamTCD(9))
On Error Resume Next
For i = 1 To maxpivotfield
.PivotItems(i).Visible = False
Next
End With
...... |
je constate à chaque fois qu'il calcule bien le nombre d'item possible (ex: 23), qu'il cache bien les 22 premiers items mais pas le dernier.
Pouvez-vous m'indiquer la démarche à suivre pour cacher également le dernier, sachant que dans la suite du programme je rends visible les items sélectionnés.
Merci beaucoup
