[VBA-E]Afficher tout dans un tableau dynamique croisé

Bonjour,

Voila je voudrais pouvoir afficher toutes les valeurs d'un tableau dynamique croisé.

Mon probleme est le suivant:
J ai 2 colones: une pays et une marchandise
J'affiche la ou les valeurs du pays selectionnés par l'utilisateur avec .PivotItem("FR").visible= True
ce qui me donne un certain nombre de noms de marchandises.
Jusque la tt va bien mais le souci c'est qu ensuite si je ne reaffiche pas ts les noms de marchandises, certaines données me manque car leur visible est false.

Comment afficher tous les item sans faire pour chacun d 'entre eux pivotItem("machin").visible=True puis pivotItem("bidule").visible=True
...

Mais afficher tout d'un seul coup, surtout que je ne connais pas toujours le nom des machandises donc les afficher une par une avec une boucle serait inutile...

Merci d avance

bonjour

j'espere que cet exemple pourra t'aider

Code:

1
2
3
4
5
6
7
Dim x As Integer
 
With Worksheets("Feuil4").PivotTables("Tableau croisé dynamique1")
        For x = 1 To .PivotFields("Pays").PivotItems.Count
        .PivotFields("Pays").PivotItems.Item(x).Visible = True
        Next
End With

bonne journée
michel

Ca marche

Merci bcp