Mettre tous les PivotsItems Invisible automatiquement

[athos7776]

Voilà, je suis en train de me créer une macro, afin de me permettre une sélection automatisée de certains critères dans mon TCD.

Par exemple, dans mon TCD j'ai un champ qui me permet de filtrer mes valeurs selon des Directeurs de comptes. Pour sélectionner leurs statistiques un à la suite de l'autre, il n'y a aucun problème. Par contre, lorsque je veux faire une somme des statistiques des directeurs de comptes sélectionnés précédemment, ceci devient pour moi beaucoup plus compliqué, étant donné que mon "data" change pratiquement à chaque mois (des directeurs de comptes quittent et des nouveaux arrivent). C'est pourquoi je ne peux pas faire ceci dans ma macro :

Sub Macro1()
'
    Range("S14").Select
    With ActiveSheet.PivotTables("PivotTable7").PivotFields("Directeurs de comptes")
        .PivotItems("Amandine").Visible = False
        .PivotItems("Jacques").Visible = False
        .PivotItems("Audrey").Visible = False
        .PivotItems("Maxime").Visible = False
        .PivotItems("Francois").Visible = False
        .PivotItems("Charles").Visible = True
    End With
End Sub

Par contre, je me demandais s'il y avait une fonction VBA qui me permettait de mettre tous les PivotItems.visible = False automatiquement et ensuite de mettre certains PivotItems.visible = True de mon choix?

Si j'ai été trop vague ou que je me suis mal exprimé faites moi le savoir, sinon, merci d'avance pour votre aide.

[David2304]

Bonjour,

C'est (à ma connaissance) pas possible de le faire, essaye de le faire manuellement et tu verras qu'excel ne veut pas que l'on décoche tous les champs

Par contre tu peux lui demander d'en laissé 1

essaye avec ce bout de code

nb = ActiveSheet.PivotTables("PivotTable7").PivotFields("Directeurs de comptes").PivotItems.Count
For i = 1 To nb - 1
With ActiveSheet.PivotTables("PivotTable7").PivotFields("Directeurs de comptes")
        .PivotItems(i).Visible = False
End With
Next

[athos7776]

Wow de supra wow, ca fonctionne nickel. Ce sera idéal pour pallier au problème auquel je faisais face.

Donc c'est simple, je m'assure que mes TCD contiennent un pivotItem (blank) (filtré en ordre croissant bien entendu), ce qui revient en pratique à avoir décoché tous les pivotItems (puisqu'il ne reste que le pivotItem (blank)), pour ensuite activer les pivotItems que j'aurai sélectionné dans mes listes déroulantes. Rewow, merci encore David2304 (je suis facilement impressionnable quant aux boucles, puisque j'ai beaucoup de difficulté à comprendre les logiques derrière tout ça).

Sur ce, bonne journée .

[athos7776]

Bonjour, me voici aux prises avec un nouveau problème suite au code précédent.

Je ne comprends pas pourquoi, mais dans certaines situations, le code suivant m'envoie toujours ce même message d'erreur : Unable to set the Visible property of the PivotItem class

Voici mon code :

    
    With ActiveSheet.PivotTables("PivotTable10").PivotFields("Codaccman2")
        .PivotItems("ADALY").Visible = True
    End With

Quelqu'un aurait-il une idée de ce que je dois faire?

Merci

[CodeFacile]

Peut être que l'items ADALY n'existe pas pour le champs Codaccman2 , à toi de vérifier dans le fichier .



Pour palier au problème , il suffit d'interroger d'abord sur l'existence de cet item :


for each item_ in ActiveSheet.PivotTables("PivotTable10").PivotFields"Codaccman2")


if item_.name = ("ADALY") then ActiveSheet.PivotTables("PivotTable10").PivotFields("Codaccman2") .PivotItems("ADALY").Visible = True
next

[athos7776]

En fait, l'items ADALY existe bel et bien, puisque mon code a simplement été construit grâce à une macro des plus simples.

Je peux aussi expliquer la nuance. Si je change dans mon code le TRUE pour un FALSE, tout fonctionne à merveille, sinon il m'envoie pratiquement tout le temps le même message : Unable to set the Visible property of the PivotItem class. Ensuite, lorsque je place ce "field" (Codaccman2) comme critère de page (dans le haut du TBC), le TRUE fonctionne très bien. Sinon, s'il est mis comme critère de rangée dans mon TBC, il m'envoie le message d'erreur....Je ne sais pas quoi faire .