Cocher/Decocher champ sur GCD en VBA

Bonjour !

Je me heurte à une nouvelle difficulté que je n'arrive pas à résoudre.

J'aimerai décocher toutes les courbes dans mon GDC en VBA.

Pour cela, j'enregistre une macro et je regarde comment ça se comporte.

Le code est le suivant :

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.PivotLayout.PivotTable.PivotFields("bonbon").Orientation _

= xlHidden

Donc je décide de l'adapter :

With Worksheets("Evolution").PivotTables(1)

For i = 2 To .PivotFields.Count

ActiveSheet.ChartObjects("Graphique 1").Activate

ActiveChart.PivotLayout.PivotTable.PivotFields(i).Orientation _

= xlHidden

Next

End With

en sachant que la première colonne est la date (d'où un commencement à i=2)

Le problème c'est que ça ne marche pas du tout, je ne pense pas que le fait d’incrémenter fonctionne, la formule marche mais ne décoche pas mes champs.

Avez-vous une idée ?

Sinon je vais devoir alourdir mon fichier en faisant cela manuellement..

Merci

Bonjour,

Personne n'a une idée pour décocher complètement les champs ?

J'ai même essayé de laisser du temps à ma macro avec Application.Wait Time mais ça ne marche toujours pas..

Rechercher des sujets similaires à "cocher decocher champ gcd vba"