Comment ajouter des séries dans des graphes sur des feuilles variables

Bonjour à tous,

Je voudrais réaliser une petite écriture dans VBA (avec Excel 2003) qui me permette d’ajouter des séries de données dans des graphes en les définissant par un nom et des données en Y (les valeurs en X restant identique). Le problème est que je souhaiterais définir la feuille sur exécuter la macro comme une variable !

Exemple :

Code:

---

1 2 3 4 5

ActiveSheet.ChartObjects("Chart 13").Activate ActiveChart.ChartArea.Select ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(4).Values = "='Feuil1'!R51C19:R62C19" ActiveChart.SeriesCollection(4).Name = "='Feuil1'!R51C7"

---

Je voudrais donc fixer le nom de la feuille (en rouge) comme une variable qui soit justement dépendante de la feuille dans laquelle je souhaite que la macro s’exécute. Les lignes et colonnes à utiliser sont les mêmes pour toutes les feuilles. J’ai 87 feuilles et 5 graphiques par feuille à modifier alors la solution serait précieuse...

Un grand merci d'avance pour votre aide.

Bonjour,

Si j'ai bien compris, tu souhaites que ton nom en rouge se remplace par le nom de la feuille sur laquelle tu es?

Dans ce cas ce n'est pas très dur, tu mets en variables le nom de ton onglet actuelle :

Code:

---

NomOnglet = ActiveWorkbook.ActiveSheet.Name

---

et remplace dans ton code:

Code:

---

1 2 3 4 5

ActiveSheet.ChartObjects("Chart 13").Activate ActiveChart.ChartArea.Select ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(4).Values = "='" & NomOnglet & "'!R51C19:R62C19" ActiveChart.SeriesCollection(4).Name = "='" & NomOnglet & "'!R51C7"

---

Cdt,