Faire apparaitre tous les élements d'un tableau croisé dynamique

[Imperium]

Bonjour,

Je cherche la commande VBA pour que tous les élements d'un tableau croisé dynamique (les lignes soient visibles).
Cela correspondrait à un "sélectionner tout" sur le filtre.
Par exemple, pour le champ "vide", j'ai ça qui me va bien :

With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
        "NOM_CLASSIF")
        .PivotItems("(blank)").Visible = True

Le problème c'est que si je fais "sélectionner tout" avec l'enregistreur de macro, il me créé une ligne de code pour chaque élément nominatif un par un, hors ces éléments peuvent être amenés à changer. Existe-t-il donc une ligne de code pour "séléectionner tout" et rendre tous les éléments visibles ?

Merci beaucoup !

 

[Gurgeh]

Re : Faire apparaitre tous les élements d'un tableau croisé dynamique

Salut Imperium

Tu peux faire un code qui va balayer chaque élément et le rendre visible

for each élément in ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("NOM_CLASSIF").PivotItems
 élément.visible = True
next

Gurgeh

 

[Pierrot93]

Re : Faire apparaitre tous les élements d'un tableau croisé dynamique

Bonjour,

essaye avec une boucle :

Dim p As PivotItem
Application.ScreenUpdating = False
With ActiveSheet.PivotTables(1).PivotFields("NOM_CLASSIF")
    For Each p In .PivotItems
        p.Visible = True
    Next p
End With

bon après midi
@+

Edition : bonjour Gurgeh

 

[Imperium]

Re : Faire apparaitre tous les élements d'un tableau croisé dynamique

Ca marche ! Un immense merci à tous les 2 !!

 

[chris]

Re : Faire apparaitre tous les élements d'un tableau croisé dynamique

Bonjour à tous

Plus rapide

ActiveSheet.PivotTables(1).PivotFields("NOM_CLASSIF").ClearManualFilter

doit marcher