macro graphique objet non trouvé

bonjour :)
je débute en VBA donc j'ai vraiment besoin de votre aide :)
j'ai crée une macro pour générer un graphique et je l'ai affectée à un bouton. J'ai aussi crée une deuxième macro pour la suppression de ce graphique.
Quand j'appuis en premier ( sans avoir deja crée le graphique ) sur le bouton de suppression j'ai une erreur d'exécution ce qui es normal!!
Alors je voudrais savoir si je pourrais ajouter une commende dans la macro de suppression qui indique à l'utilisateur de créer d'abord l'objet " graphique 1" qu'il veut supprimer.
mercii :)

montre nous le code de suppression ;

Code:

---

1 2 3 4

Sub efface() ActiveSheet.ChartObjects("Graphique1").Activate Selection.Delete End Sub

---

Pour effacer tous les graphiques de ta feuille tu boucle dans la collection ChartObjects

Code:

---

1 2 3 4 5 6 7

Sub EffaceTous() 'Efface tous les graphiques de la feuille Dim ch As ChartObject For Each ch In ThisWorkbook.Sheets("Feuil1").ChartObjects ch.Delete Debug.Print ch.Name Next End Sub

---

pour tester la présence d'un graphe avant de l'effacer :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub EffaceChart() Dim ch As ChartObject On Error Resume Next Set ch = ThisWorkbook.Sheets("Feuil1").ChartObjects("Graphique1") If ch Is Nothing Then MsgBox "Graphe inexistant" Else ch.Delete End If End Sub

---

Bonjour

Je rajouterais en apparté que lorsque tu crées ton graphique dynamiquement est-ce que tu lui donnes un nom ?

En effet, a chaque création, le code va incrémenter le numéro du grahique.

Philippe

mercii j'ai eu ce que je voulais :)