Effacer ou supprimer les diagrammes ou graphiques avec Excel VBA

Si vous souhaitez supprimer des diagrammes de votre classeur, utilisez la méthode Delete. Cependant, vous devez différencier si vous souhaitez supprimer des feuilles de diagramme ou des diagrammes incorporés de votre classeur.
1 Supprimer les feuilles de graphique du classeur
Pour supprimer toutes les feuilles de diagramme d’un classeur, utilisez la macro suivante:

Sub SupprimerDiagrammes()
Application.DisplayAlerts = False
On Error Resume Next
ActiveWorkbook.Charts.Delete
Application.DisplayAlerts = False
End Sub

 

Commentaires:
 En définissant la propriété DisplayAlerts sur False, vous n’avez pas besoin de confirmer les suppressions individuelles.

 L’instruction On Error garantit que le traitement est correctement intercepté s’il n’y a aucune feuille de graphique dans le classeur.

■ La propriété Charts renvoie une liste de toutes les feuilles de diagramme du classeur actif que vous supprimez à l’aide de la méthode Delete.
 N’oubliez pas de réinitialiser la propriété DisplayAlerts à la valeur pour permettre l’affichage des avertissements et des messages.

2 Supprimer les diagrammes incorporés du classeur
Pour supprimer tous les graphiques incorporés d’un classeur, écrivez une macro avec deux boucles.

Sub SupprimerTousLesDiagrammesIncorpores()
Dim i As Integer
Dim e As Integer
For i = 1 To Sheets.Count
Sheets(i).Activate
For e = 1 To ActiveSheet.ChartObjects.Count
ActiveSheet.ChartObjects(e).Select
ActiveSheet.ChartObjects(e).Delete
Next e
Next i
End Sub

 


La macro  consiste en une boucle externe qui garantit que la feuille de calcul est traitée une par une. La deuxième boucle vérifie s’il y a un ou plusieurs diagrammes incorporés sur des feuilles de calcul individuelles et les marque et les supprime à l’aide des méthodes Sélect ou Delete

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x