Modification de graphe à nombre de séries variables

[Guillaume]

Bonjour le forum,

Je cherche à faire une macro qui modifiera un graphique en supprimant toutes les séries existants sur ce graphe (nombre variable) et en en rajoutant de nouvelles (nombre variable aussi).

Mon soucis est que je n'arrive pas à détecter le nombre de séries actuel de mon graphe et que je n'ai pas trouvé une autre méthode que faire "

ActiveChart.SeriesCollection(1).Delete

"

Mais je n'arrive pas à dire au programme combien de fois la faire.

J'ai essayé de contourner le problème en recréant un nouveau graphe mais je n'ai pas réussi à le placer à l'endroit de l'ancien graphe à supprimer.

Est-ce que quelqu'un aurait une idée pour résoudre mon problème s'il vous plaît?

Cordialement,
Guillaume

PS: J'ai joint mon fichier pour plus de précision.

 

[tototiti2008]

Re : Modification de graphe à nombre de séries variables

Bonjour Guillaume,

Je crois que le nombre de séries doit pouvoir se trouver grâce à

ActiveChart.SeriesCollection.Count

 

[Pierrot93]

Re : Modification de graphe à nombre de séries variables

Bonsoir,

pour supprimer toutes les séries :

Dim s As Series
For Each s In ActiveChart.SeriesCollection
    s.Delete
Next s

bonne soirée
@+

 

[Guillaume]

Re : Modification de graphe à nombre de séries variables

ça marche impec.
Merci beaucoup 😀

Bonne soirée à tous.