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