Discussion :

[marcelisa2]

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 :

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
 
....
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

[Fvandermeulen]

Salut,

Sauf erreur de ma part, il te faut au minimum 1 Item, c'est une règle Excel, ta macro n'y pourra rien.

[marcelisa2]

Bonjour,
j'ai finalement résolu mon problème en conservant en variable le dernier item (non caché ) et en le cachant après avoir mis visible les items sélectionnés par l'utilisateur