[VBA] tester la présence d'une serie dans un graphique
1 réponse
twinley
Bonjour à tous,
J'utilise la macro suivant pour supprimer une série de mon graphique.
ça marche bien, mais j'ai deux questions car il y a des cas ou cette série
n'est pas encore présente.
comment tester la présence de cette série ? If serie(4) existe...
comment désactiver le graphique sans sélectionner une cellule F1 dans cet
exemple ?
Sub removeserie4()
ActiveSheet.ChartObjects("Graphique 1m").Activate
ActiveChart.SeriesCollection(4).Delete
Sheets("Graph1").[F1].Select
End Sub
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
twinley
réponse à la deuxième partie pour désélectionner un graphique est
ActiveChart.Deselect
-- à+twinley "twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
Bonjour à tous,
J'utilise la macro suivant pour supprimer une série de mon graphique. ça marche bien, mais j'ai deux questions car il y a des cas ou cette série n'est pas encore présente.
comment tester la présence de cette série ? If serie(4) existe... comment désactiver le graphique sans sélectionner une cellule F1 dans cet exemple ?
Sub removeserie4() ActiveSheet.ChartObjects("Graphique 1m").Activate ActiveChart.SeriesCollection(4).Delete Sheets("Graph1").[F1].Select End Sub
Merci pour votre aide -- à+twinley
réponse à la deuxième partie pour désélectionner un graphique est
ActiveChart.Deselect
--
à+twinley
"twinley" <twinleym(at)hotmail.com> a écrit dans le message de
news:OgDGqfrfEHA.3964@TK2MSFTNGP12.phx.gbl...
Bonjour à tous,
J'utilise la macro suivant pour supprimer une série de mon graphique.
ça marche bien, mais j'ai deux questions car il y a des cas ou cette série
n'est pas encore présente.
comment tester la présence de cette série ? If serie(4) existe...
comment désactiver le graphique sans sélectionner une cellule F1 dans cet
exemple ?
Sub removeserie4()
ActiveSheet.ChartObjects("Graphique 1m").Activate
ActiveChart.SeriesCollection(4).Delete
Sheets("Graph1").[F1].Select
End Sub
réponse à la deuxième partie pour désélectionner un graphique est
ActiveChart.Deselect
-- à+twinley "twinley" <twinleym(at)hotmail.com> a écrit dans le message de news:
Bonjour à tous,
J'utilise la macro suivant pour supprimer une série de mon graphique. ça marche bien, mais j'ai deux questions car il y a des cas ou cette série n'est pas encore présente.
comment tester la présence de cette série ? If serie(4) existe... comment désactiver le graphique sans sélectionner une cellule F1 dans cet exemple ?
Sub removeserie4() ActiveSheet.ChartObjects("Graphique 1m").Activate ActiveChart.SeriesCollection(4).Delete Sheets("Graph1").[F1].Select End Sub
