Voil=E0, j'aimerais savoir comment par une macro, je=20
pourrais suprimer d'un seul coup tous les graphiques=20
pr=E9sents sur une feuille et donc sans connaite leur noms=20
genre " ("Graphique 41") ".
Si quelqu'un a une id=E9e, je suis preneur.
Merci d'avance
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour Tof,
voici un exemple
Sub Macro1() For Each co In ActiveSheet.DrawingObjects If Left(co.Name, 5) = "Chart" Then co.Delete Next End Sub
isabelle
Bonjour
Voilà, j'aimerais savoir comment par une macro, je pourrais suprimer d'un seul coup tous les graphiques présents sur une feuille et donc sans connaite leur noms genre " ("Graphique 41") ". Si quelqu'un a une idée, je suis preneur. Merci d'avance
TOF
bonjour Tof,
voici un exemple
Sub Macro1()
For Each co In ActiveSheet.DrawingObjects
If Left(co.Name, 5) = "Chart" Then co.Delete
Next
End Sub
isabelle
Bonjour
Voilà, j'aimerais savoir comment par une macro, je
pourrais suprimer d'un seul coup tous les graphiques
présents sur une feuille et donc sans connaite leur noms
genre " ("Graphique 41") ".
Si quelqu'un a une idée, je suis preneur.
Merci d'avance
Sub Macro1() For Each co In ActiveSheet.DrawingObjects If Left(co.Name, 5) = "Chart" Then co.Delete Next End Sub
isabelle
Bonjour
Voilà, j'aimerais savoir comment par une macro, je pourrais suprimer d'un seul coup tous les graphiques présents sur une feuille et donc sans connaite leur noms genre " ("Graphique 41") ". Si quelqu'un a une idée, je suis preneur. Merci d'avance
TOF
Jean-François Aubert
Salut Tof, tiré de l'aide:
Utilisez la méthode ChartObject pour renvoyer la collection ChartObjects. L'exemple suivant montre comment supprimer tous les graphiques incorporés de la feuille de calcul intitulée « Sheet1 ».
Worksheets("sheet1").ChartObjects.Delete
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"TOF" a écrit dans le message de news:0d9101c39f06$257c0210$ Bonjour
Voilà, j'aimerais savoir comment par une macro, je pourrais suprimer d'un seul coup tous les graphiques présents sur une feuille et donc sans connaite leur noms genre " ("Graphique 41") ". Si quelqu'un a une idée, je suis preneur. Merci d'avance
TOF
Salut Tof,
tiré de l'aide:
Utilisez la méthode ChartObject pour renvoyer la collection ChartObjects. L'exemple suivant montre
comment supprimer tous les graphiques incorporés de la feuille de calcul intitulée « Sheet1 ».
Worksheets("sheet1").ChartObjects.Delete
--
Amicalement
Jean-François Aubert
{Vaudois de la Côte Lémanique}
"TOF" <tof1414@yahoo.fr> a écrit dans le message de news:0d9101c39f06$257c0210$a501280a@phx.gbl...
Bonjour
Voilà, j'aimerais savoir comment par une macro, je
pourrais suprimer d'un seul coup tous les graphiques
présents sur une feuille et donc sans connaite leur noms
genre " ("Graphique 41") ".
Si quelqu'un a une idée, je suis preneur.
Merci d'avance
Utilisez la méthode ChartObject pour renvoyer la collection ChartObjects. L'exemple suivant montre comment supprimer tous les graphiques incorporés de la feuille de calcul intitulée « Sheet1 ».
Worksheets("sheet1").ChartObjects.Delete
-- Amicalement
Jean-François Aubert {Vaudois de la Côte Lémanique}
"TOF" a écrit dans le message de news:0d9101c39f06$257c0210$ Bonjour
Voilà, j'aimerais savoir comment par une macro, je pourrais suprimer d'un seul coup tous les graphiques présents sur une feuille et donc sans connaite leur noms genre " ("Graphique 41") ". Si quelqu'un a une idée, je suis preneur. Merci d'avance
