Discussion :

[Molomarcopolo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jackborogar]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

NomOnglet = ActiveWorkbook.ActiveSheet.Name

et remplace dans ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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,