supprimer des graphiques

  • Initiateur de la discussion Boyboy
  • Date de début
B

Boyboy

Guest
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

XLDnaute Barbatruc
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
 
B

Boyboy

Guest
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

XLDnaute Barbatruc
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
 

Discussions similaires

Réponses
6
Affichages
391

Statistiques des forums

Discussions
312 848
Messages
2 092 786
Membres
105 534
dernier inscrit
EmilieG60