macro pour RAZ champs de série graphe TCD

[wwwhttp]

Bonjour,
j'ai un TCD avec des milliers de lignes et 35 colonnes
j'ai besoin d'en faire un graphe dont les champs de série seront modifiés par appui sur un bouton qui déclenche une macro. jusque là c'est bon pour moi.
mais je dois avoir 7 boutons avec les macros qui vont bien derrière, le tout devant fonctionner dans tous les sens.
quand j'ai 2 macros, pas de problème, une simple macro qui change les champs tourne bien. Dès qu'on augmente le nombre, certains champs de série sont maintenu car imposés par la macro précédente.
je cherche donc le moyen de faire une RAZ des champs de séries au début de chaque macro

pour l'instant, j'en suis sur du basique (niveau quiche améliorée sur excel)

Sub Macro1()
'
' Macro1 Macro
'

'
 With ActiveChart.PivotLayout.PivotTable.PivotFields("Typologie1")
        .Orientation = xlRowField
        .Position = 1
    End With
 With ActiveChart.PivotLayout.PivotTable.PivotFields("mois2")
        .Orientation = xlRowField
        .Position = 2
    End With
    With ActiveChart.PivotLayout.PivotTable.PivotFields("Typologie2")
        .Orientation = xlColumnField
        .Position = 1
    End With
        ActiveChart.HasDataTable = False
        ActiveChart.ChartType = xlColumnStacked
End Sub

merci de votre aide

 

[wwwhttp]

Re : macro pour RAZ champs de série graphe TCD

remontage de topic
merci