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