Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel [VBA] Fusion et simplification du code ActiveChart

[VBA] Fusion et simplification du code ActiveChart

2 réponses
Avatar
twinley
Bonjour à tous,

J j'ai trouvé la Fusion du code



Active.Chart.Legend

Selection.Delete



qui se fusionne en

ActiveChart.legend.delete



mais pouvez vous m'indiquer la fusion du code suivant pour avoir juste le
delete de la série 2 du graph2 en une ligne de code ? Je m'en sort pas.



ActivateSheet.ChartObjects("graph2").Activate

ActiveChart.SeriesCollection(2).Select

Selection.Delete



Merci pour l'aide



à+

twinley
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
ru-th
Salut

pour le 1ere graphique de la feuille active

ActiveSheet.ChartObjects(1).Chart.SeriesCollection(2).Delete

tu peux remplacer 1 par "graph2"
a+
rural thierry
"twinley" a écrit dans le message de news:

Bonjour à tous,

J j'ai trouvé la Fusion du code



Active.Chart.Legend

Selection.Delete



qui se fusionne en

ActiveChart.legend.delete



mais pouvez vous m'indiquer la fusion du code suivant pour avoir juste le
delete de la série 2 du graph2 en une ligne de code ? Je m'en sort pas.



ActivateSheet.ChartObjects("graph2").Activate

ActiveChart.SeriesCollection(2).Select

Selection.Delete



Merci pour l'aide



à+

twinley




Avatar
twinley
Salut ru-th

Superbe, comme dab...
Je la note celle là. D'ailleurs je me suis vanté, la première simplification
m'a déjà été indiquée.

Merci et bonne journée

à+
twinley
"twinley" a écrit dans le message de
news:
Bonjour à tous,

J j'ai trouvé la Fusion du code



Active.Chart.Legend

Selection.Delete



qui se fusionne en

ActiveChart.legend.delete



mais pouvez vous m'indiquer la fusion du code suivant pour avoir juste le
delete de la série 2 du graph2 en une ligne de code ? Je m'en sort pas.



ActivateSheet.ChartObjects("graph2").Activate

ActiveChart.SeriesCollection(2).Select

Selection.Delete



Merci pour l'aide



à+

twinley