supprimer des graphiques

[Boyboy]

Bonjour @ tous,

Voici mon problème :
Je créé plusieurs graphiques grâce à des macros.
J'en créé 4 plus exactement. Je leur ai donné à chacun un nom:
'PrevTotal'
'PrevFF'
'ConsoTotal'
'ConsoFF'

Ce que je n'arrive pas à faire, c'est les supprimer avant de les recréer.

Quelqu'un aurait-il une méthode pour supprimer facilement des graphiques ainsi créés sur la même feuilles?

Je vous remercie par avance de votre réponse !

@+
Boyboy

 

[Celeda]

Bonjour,

Trouvé sur le fil de MichelXLD sur la gestion des Graphs :

'La Gestion des Graphs par MichelXLD
Lien supprimé


Supprimer un graphique
Sub supprimeGraphique()
Dim graph As Object
Set graph = ActiveSheet.ChartObjects(1)
graph.Delete
Set graph = Nothing
End Sub

Supprimer tous les graphiques de la feuille active ActiveSheet.ChartObjects.Delete

à placer dans un module (Alt F11)

à adapter à tes besoins


Celeda

Celeda

 

[Boyboy]

Merci beaucoup !

En continuant mon petit programme, j'ai une autre question !

Comment faire pour supprimer toutes les séries d'un graphique avant d'en recréer?

j'ai essayé de les compter puis de les supprimer une à une grâce à une boucle FOR mais j'ai un message d'erreur...

Si tu sais comment faire, je suis preneur !

Merci encore

Boyboy

 

[MichelXld]

bonsoir Boyboy , bonsoir Celeda

cet exemple permet de supprimer toutes les series du 'Graphique 1'

For j = Worksheets(1).ChartObjects('Graphique 1').Chart.SeriesCollection.Count To 1 Step -1
Worksheets(1).ChartObjects('Graphique 1').Chart.SeriesCollection(j).Delete
Next j


bonne soiree
MichelXld