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 :
Code:
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 ?
Re : Faire apparaitre tous les élements d'un tableau croisé dynamique
Bonjour,
essaye avec une boucle :
Code:
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