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

  • Initiateur de la discussion Initiateur de la discussion Imperium
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Imperium

XLDnaute Junior
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 :

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 ?

Merci beaucoup !
 
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

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

Gurgeh
 
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

bon après midi
@+

Edition : bonjour Gurgeh
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
596
Retour