Bonjour,
Je souhaiterai coder en VBA l'exemple suivant:
Si le graphique nommé TOTO existe sur la feuille de calcul alors le supprimer, puis créer un nouveau graphique TOTO.
Le problème est que lorsque le graphique TOTO n'existe pas, alors message d'erreur d'EXCEL.
J'ai essayé plusieur méthodes si dessous:
1ere méthode:
On Error Resume Next 'erreur de programmation lorsque l'on veut supprimer un graphique qui n'existe pas
Sheets("INFORMATION ACTIVITES").ChartObjects.Delete
Remarque: problème lorsque graphique non présent d'ou le rajout de On Error Resume Next
2eme méthode:
On Error Resume Next
Set Graph = Sheets("INFORMATION ACTIVITES").ChartObjects("TabIndGlobal")
If Not Graph Is Nothing Then
Sheets("INFORMATION ACTIVITES").ChartObjects("TabIndGlobal").Delete
End If
.... création nouveau graphique
Je souhaiterai coder en VBA l'exemple suivant:
Si le graphique nommé TOTO existe sur la feuille de calcul alors le supprimer, puis créer un nouveau graphique TOTO.
Le problème est que lorsque le graphique TOTO n'existe pas, alors message d'erreur d'EXCEL.
J'ai essayé plusieur méthodes si dessous:
1ere méthode:
On Error Resume Next 'erreur de programmation lorsque l'on veut supprimer un graphique qui n'existe pas
Sheets("INFORMATION ACTIVITES").ChartObjects.Delete
Remarque: problème lorsque graphique non présent d'ou le rajout de On Error Resume Next
2eme méthode:
On Error Resume Next
Set Graph = Sheets("INFORMATION ACTIVITES").ChartObjects("TabIndGlobal")
If Not Graph Is Nothing Then
Sheets("INFORMATION ACTIVITES").ChartObjects("TabIndGlobal").Delete
End If
.... création nouveau graphique