Discussion :

[FloFlosu]

Bonjour à tous,

Je souhaiterai faire l'inverse que ce que fais Excel lors de la création d'un TCD.
En gros, lorsque je créé mon TCD, il me sélectionne toutes les lignes qu'il trouve.
Moi je voudrais qu'il ne me sélectionne rien par défaut et que je lui dise moi même les valeurs qu'il doit intégrer dans le tableau.

En fait, je sais comment ne pas afficher certaines valeurs avec .pivotitems(....).visible=false ou true selon mon envie
Mais le problème, c'est que je n'aurai pas toujours ces même valeurs, c'est pourquoi je souhaiterai tout déselectionner puis n'afficher que valeur1 et valeur2.

Est ce que quelqu'un s'est déjà penché la dessus ?
merci en tout cas.

Flo

[rvtoulon]

Bonjour,
tu dois pouvoir le faire en faisant une boucle sur tous les pivotItems et en les mettant a false.
j'ai pas testé mais ça pourrait être comme ceci, les noms sont a adapter biensur:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
with sheets("MAFEUILLE").PivotTables ("TOTO").PivotFields("TATA")
    i = .pivotItems.Count
   For x = 1 to i
    .PivotItems (x).visible = false
   next x
end with

[FloFlosu]

Alors j'ai l'impression que ça pourrais effectivement marcher mais j'ai aussi l'impression qu'il refuse de tout mettre à faux, même si après je lui dis de remettre certaines valeurs. pffff

Bon je pense que c'est quand même bon, j'ai modifié comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
with sheets("MAFEUILLE").PivotTables ("TOTO").PivotFields("TATA")
    i = .pivotItems.Count - 2
   For x = 1 to i
    .PivotItems (x).visible = false
   next x
end with

Du coup ça ne me sélectionne que les deux dernières lignes rentrées et c'est ce que je voulais.

Merci en tout cas.

Flo

[mercatog]

Tu peux aussi faire directement et sans boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim AvantDer As String, Der As String
 
With Sheets("MAFEUILLE").PivotTables("TOTO").PivotFields("TATA")
    .ClearLabelFilters
    AvantDer = .PivotItems(.PivotItems.Count - 1)
    Der = .PivotItems(.PivotItems.Count)
    .PivotFilters.Add Type:=xlCaptionIsBetween, Value1:=AvantDer, Value2:=Der
End With

[rvtoulon]

Bonjour Mercatog,
j'aime ton efficacité. Je ne savais pas que l'on pouvait faire comme çà.

[mercatog]

Bonjour Hervé, moi non plus je ne savais pas, mais seulement hier je me suis lancé pour répondre à un autre sujet ICI et l'enregistreur de macro m'a aidé