bonjour ,
j'aimerai savoir s'il existe une methode pour compter les graphiques uo pour
supprimer tout les graphiques sur une feuille .
en fait je veut lancer une boucle qui ne marche que s'il y n'y a pas de
graphique existant sur la feuille et donc a chaque pas il faut vider la
feuille de son graphique .
existe il uen methode pour supprimer tout les graphiques d'une feuille excel
? au pire une methode pr compter les graphiques et je conditionnerais
ensuite pour les supprimer ?
merci d'avance.
a+
christophe
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
ChrisV
Bonjour cm,
méthode pour supprimer tout les graphiques Worksheets("sheet1").ChartObjects.Delete
une méthode pour compter les graphiques Sub zaza()
Dim Graph As ChartObject Dim nbG As Integer nbG = 0 For Each Graph In Sheets("sheet1").ChartObjects nbG = 1 + nbG Next Graph MsgBox "Nombre de graphique(s) de la feuille active: " & nbG End Sub
ChrisV
"cm" a écrit dans le message de news:cdoq7g$fo7$
bonjour , j'aimerai savoir s'il existe une methode pour compter les graphiques uo pour
supprimer tout les graphiques sur une feuille . en fait je veut lancer une boucle qui ne marche que s'il y n'y a pas de graphique existant sur la feuille et donc a chaque pas il faut vider la feuille de son graphique . existe il uen methode pour supprimer tout les graphiques d'une feuille excel
? au pire une methode pr compter les graphiques et je conditionnerais ensuite pour les supprimer ? merci d'avance. a+ christophe
Bonjour cm,
méthode pour supprimer tout les graphiques
Worksheets("sheet1").ChartObjects.Delete
une méthode pour compter les graphiques
Sub zaza()
Dim Graph As ChartObject
Dim nbG As Integer
nbG = 0
For Each Graph In Sheets("sheet1").ChartObjects
nbG = 1 + nbG
Next Graph
MsgBox "Nombre de graphique(s) de la feuille active: " & nbG
End Sub
ChrisV
"cm" <c02@wanadoo.fr> a écrit dans le message de
news:cdoq7g$fo7$1@news-reader5.wanadoo.fr...
bonjour ,
j'aimerai savoir s'il existe une methode pour compter les graphiques uo
pour
supprimer tout les graphiques sur une feuille .
en fait je veut lancer une boucle qui ne marche que s'il y n'y a pas de
graphique existant sur la feuille et donc a chaque pas il faut vider la
feuille de son graphique .
existe il uen methode pour supprimer tout les graphiques d'une feuille
excel
? au pire une methode pr compter les graphiques et je conditionnerais
ensuite pour les supprimer ?
merci d'avance.
a+
christophe
méthode pour supprimer tout les graphiques Worksheets("sheet1").ChartObjects.Delete
une méthode pour compter les graphiques Sub zaza()
Dim Graph As ChartObject Dim nbG As Integer nbG = 0 For Each Graph In Sheets("sheet1").ChartObjects nbG = 1 + nbG Next Graph MsgBox "Nombre de graphique(s) de la feuille active: " & nbG End Sub
ChrisV
"cm" a écrit dans le message de news:cdoq7g$fo7$
bonjour , j'aimerai savoir s'il existe une methode pour compter les graphiques uo pour
supprimer tout les graphiques sur une feuille . en fait je veut lancer une boucle qui ne marche que s'il y n'y a pas de graphique existant sur la feuille et donc a chaque pas il faut vider la feuille de son graphique . existe il uen methode pour supprimer tout les graphiques d'une feuille excel
? au pire une methode pr compter les graphiques et je conditionnerais ensuite pour les supprimer ? merci d'avance. a+ christophe
ChrisV
une méthode pour compter les graphiques
pourquoi faire simple quand... Pfff... :-7
Sub zaza() MsgBox "Nombre de graphique(s) de la feuille active: " _ & Sheets(1).ChartObjects.Count End Sub
ChrisV
"ChrisV" a écrit dans le message de news:%
Bonjour cm,
méthode pour supprimer tout les graphiques Worksheets("sheet1").ChartObjects.Delete
une méthode pour compter les graphiques Sub zaza()
Dim Graph As ChartObject Dim nbG As Integer nbG = 0 For Each Graph In Sheets("sheet1").ChartObjects nbG = 1 + nbG Next Graph MsgBox "Nombre de graphique(s) de la feuille active: " & nbG End Sub
ChrisV
"cm" a écrit dans le message de news:cdoq7g$fo7$
bonjour , j'aimerai savoir s'il existe une methode pour compter les graphiques uo pour
supprimer tout les graphiques sur une feuille . en fait je veut lancer une boucle qui ne marche que s'il y n'y a pas de graphique existant sur la feuille et donc a chaque pas il faut vider la feuille de son graphique . existe il uen methode pour supprimer tout les graphiques d'une feuille excel
? au pire une methode pr compter les graphiques et je conditionnerais ensuite pour les supprimer ? merci d'avance. a+ christophe
une méthode pour compter les graphiques
pourquoi faire simple quand...
Pfff... :-7
Sub zaza()
MsgBox "Nombre de graphique(s) de la feuille active: " _
& Sheets(1).ChartObjects.Count
End Sub
ChrisV
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:%23owhItAcEHA.1356@TK2MSFTNGP09.phx.gbl...
Bonjour cm,
méthode pour supprimer tout les graphiques
Worksheets("sheet1").ChartObjects.Delete
une méthode pour compter les graphiques
Sub zaza()
Dim Graph As ChartObject
Dim nbG As Integer
nbG = 0
For Each Graph In Sheets("sheet1").ChartObjects
nbG = 1 + nbG
Next Graph
MsgBox "Nombre de graphique(s) de la feuille active: " & nbG
End Sub
ChrisV
"cm" <c02@wanadoo.fr> a écrit dans le message de
news:cdoq7g$fo7$1@news-reader5.wanadoo.fr...
bonjour ,
j'aimerai savoir s'il existe une methode pour compter les graphiques uo
pour
supprimer tout les graphiques sur une feuille .
en fait je veut lancer une boucle qui ne marche que s'il y n'y a pas de
graphique existant sur la feuille et donc a chaque pas il faut vider la
feuille de son graphique .
existe il uen methode pour supprimer tout les graphiques d'une feuille
excel
? au pire une methode pr compter les graphiques et je conditionnerais
ensuite pour les supprimer ?
merci d'avance.
a+
christophe
Sub zaza() MsgBox "Nombre de graphique(s) de la feuille active: " _ & Sheets(1).ChartObjects.Count End Sub
ChrisV
"ChrisV" a écrit dans le message de news:%
Bonjour cm,
méthode pour supprimer tout les graphiques Worksheets("sheet1").ChartObjects.Delete
une méthode pour compter les graphiques Sub zaza()
Dim Graph As ChartObject Dim nbG As Integer nbG = 0 For Each Graph In Sheets("sheet1").ChartObjects nbG = 1 + nbG Next Graph MsgBox "Nombre de graphique(s) de la feuille active: " & nbG End Sub
ChrisV
"cm" a écrit dans le message de news:cdoq7g$fo7$
bonjour , j'aimerai savoir s'il existe une methode pour compter les graphiques uo pour
supprimer tout les graphiques sur une feuille . en fait je veut lancer une boucle qui ne marche que s'il y n'y a pas de graphique existant sur la feuille et donc a chaque pas il faut vider la feuille de son graphique . existe il uen methode pour supprimer tout les graphiques d'une feuille excel
? au pire une methode pr compter les graphiques et je conditionnerais ensuite pour les supprimer ? merci d'avance. a+ christophe
cm
merci bcp de ta réponse c cool ca m'aide j'ia une autre question pour supprimer des graphs ss word (voir post + haut) merci . + christophe
"ChrisV" a écrit dans le message de news:%
Bonjour cm,
méthode pour supprimer tout les graphiques Worksheets("sheet1").ChartObjects.Delete
une méthode pour compter les graphiques Sub zaza()
Dim Graph As ChartObject Dim nbG As Integer nbG = 0 For Each Graph In Sheets("sheet1").ChartObjects nbG = 1 + nbG Next Graph MsgBox "Nombre de graphique(s) de la feuille active: " & nbG End Sub
ChrisV
"cm" a écrit dans le message de news:cdoq7g$fo7$
bonjour , j'aimerai savoir s'il existe une methode pour compter les graphiques uo pour
supprimer tout les graphiques sur une feuille . en fait je veut lancer une boucle qui ne marche que s'il y n'y a pas de graphique existant sur la feuille et donc a chaque pas il faut vider la feuille de son graphique . existe il uen methode pour supprimer tout les graphiques d'une feuille excel
? au pire une methode pr compter les graphiques et je conditionnerais ensuite pour les supprimer ? merci d'avance. a+ christophe
merci bcp de ta réponse
c cool ca m'aide
j'ia une autre question pour supprimer des graphs ss word (voir post + haut)
merci .
+
christophe
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de
news:%23owhItAcEHA.1356@TK2MSFTNGP09.phx.gbl...
Bonjour cm,
méthode pour supprimer tout les graphiques
Worksheets("sheet1").ChartObjects.Delete
une méthode pour compter les graphiques
Sub zaza()
Dim Graph As ChartObject
Dim nbG As Integer
nbG = 0
For Each Graph In Sheets("sheet1").ChartObjects
nbG = 1 + nbG
Next Graph
MsgBox "Nombre de graphique(s) de la feuille active: " & nbG
End Sub
ChrisV
"cm" <c02@wanadoo.fr> a écrit dans le message de
news:cdoq7g$fo7$1@news-reader5.wanadoo.fr...
bonjour ,
j'aimerai savoir s'il existe une methode pour compter les graphiques uo
pour
supprimer tout les graphiques sur une feuille .
en fait je veut lancer une boucle qui ne marche que s'il y n'y a pas de
graphique existant sur la feuille et donc a chaque pas il faut vider la
feuille de son graphique .
existe il uen methode pour supprimer tout les graphiques d'une feuille
excel
? au pire une methode pr compter les graphiques et je conditionnerais
ensuite pour les supprimer ?
merci d'avance.
a+
christophe
merci bcp de ta réponse c cool ca m'aide j'ia une autre question pour supprimer des graphs ss word (voir post + haut) merci . + christophe
"ChrisV" a écrit dans le message de news:%
Bonjour cm,
méthode pour supprimer tout les graphiques Worksheets("sheet1").ChartObjects.Delete
une méthode pour compter les graphiques Sub zaza()
Dim Graph As ChartObject Dim nbG As Integer nbG = 0 For Each Graph In Sheets("sheet1").ChartObjects nbG = 1 + nbG Next Graph MsgBox "Nombre de graphique(s) de la feuille active: " & nbG End Sub
ChrisV
"cm" a écrit dans le message de news:cdoq7g$fo7$
bonjour , j'aimerai savoir s'il existe une methode pour compter les graphiques uo pour
supprimer tout les graphiques sur une feuille . en fait je veut lancer une boucle qui ne marche que s'il y n'y a pas de graphique existant sur la feuille et donc a chaque pas il faut vider la feuille de son graphique . existe il uen methode pour supprimer tout les graphiques d'une feuille excel
? au pire une methode pr compter les graphiques et je conditionnerais ensuite pour les supprimer ? merci d'avance. a+ christophe
