Suppression de graphiques par une macro

[Tony44]

Bonjour,

j'essaye de créer une macro qui me permettrait de supprimer un graphique.
Mon problème est que le graphique n'a jamais le même nom.

un coup, il s'appelle "Graphique 10", puis le coup suivant "Graphique 11" ...

Comment puis-je faire pour supprimer ces graphiques qui ne portent pas le même nom?
Y a t'il une possibilité.

Merci pour votre aide.

 

[Pierrot93]

Re : Suppression de graphiques par une macro

Bonjour Tony

pour supprimer un graph incormporé sur une feuille de calcul, attention supprimera le 1er graph dans la liste des index, s'il y en a plusieurs, il faut avoir un critère permettant de les distinguer :

Feuil1.ChartObjects(1).Delete

bonne fin d'après midi
@+

 

[Kobaya2]

Re : Suppression de graphiques par une macro

bonsoir à tous,

avec une boucle, ça donne ça :

Sub GraphDelete()
    Dim obj As ChartObject
    
    For Each obj In ActiveSheet.ChartObjects
        obj.Delete
    Next
End Sub

 

[Pierrot93]

Re : Suppression de graphiques par une macro

Re, bonjour Kobaya

pour tous les graphs on peut procéder également ainsi :

Feuil1.ChartObjects.Delete

 

[Kobaya2]

Re : Suppression de graphiques par une macro

si Tony44 ne trouve pas son bonheur dans tout ça, c'est à désespérer...