Discussion :

[totau]

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

[SfJ5Rpw8]

montre nous le code de suppression ;

[totau]

Code :

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

1
2
3
4
Sub efface()
ActiveSheet.ChartObjects("Graphique1").Activate
Selection.Delete
End Sub

[SfJ5Rpw8]

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

Code :

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

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 :

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

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

[Invité]

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

[totau]

mercii j'ai eu ce que je voulais