Discussion :

[ferronimus]

SLT,
voila je voudrais supprimer tous les graphique d'une même feuille excel, donc j'ai essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Sub essai()
  Dim z As Integer
  Dim nbgraph
nbgraph = ActiveSheet.ChartObjects.Count
  If nbgraph > 0 Then
     For z = 1 To nbgraph
       ActiveSheet.ChartObjects(z).Delete
     Next z
  End If
End Sub

mais sa supprime une partie des graphs et sa plante erreur 1004 si quelqu'un à une solution
ferronimus

[ouskel'n'or]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Legraph In ActiveSheet.ChartObjects
    Legraph.Delete
Next

Mais je ne comprends pas bien pourquoi ton code ne fonctionne pas

[lapa-jh]

y'a un truc que je comprend pas (j'en profite pour obtenir peut être une explication )c'est pourquoi on peut imprimer tous les graphiques avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

charts.printout

et on ne peut pas supprimer tous les graphiques avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

charts.clear

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

charts.chartarea.clear

. enfin bref, une commande plus simple en somme, sans boucle.

[ferronimus]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each Legraph In ActiveSheet.ChartObjects 
Legraph.Delete
Next

excellent sa marche nickel

[migouel]

Bonjour,
merci ouskel'n'or, le code est vraiment bien!

Au passage, le premier code de ferrominus plante forcément, car dans son parcours de la boucle, il supprime petit à petit les graphs, donc leur nombre diminue, et arrivé à la moitié de la boucle...y en a plus!
Si tu reprends le même code mais en faisant un parcours de la boucle for dans l'ordre inverse

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For z = nbgraph To 1 Step -1
       ActiveSheet.ChartObjects(z).Delete
Next z

ca marchera sans erreur. (je sais pas si la précision du step est nécessaire dans les boucles décroissantes...)

[mimilll]

hello all,

juste pour les 'mauvais' comme moi:

dim Legraph as chartobject (sans 's')

j'ai cherché un petit moment avant de trouver le bon...

merci et à +