Bonjour,

Sur une feuille de calcul, j'ai une macro qui génère un grahique à partir d'une plage de cellules donnée.
Voici le code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
'Sélection de la plage du tableau pour le graphique
Set SourceRange = Range([G4].Offset(0, 4), [G4].End(xlDown))
 
'Ajout du tableau
Charts.Add
ActiveChart.ChartType = xl3DBarClustered
ActiveChart.SetSourceData Source:=SourceRange, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:=Feuil1
Cette macro est identique pour plusieurs feuilles de calcul. Seulement, avec ce code, tous les graphiques apparaissent sur la feuille 1. Or je voudrais que chaque graphique apparaissent sur sa propre feuille (sans avoir à multiplier la macro car le nombre de feuille de calcul peut varier).
J'ai essayé avec un truc du genre "ActiveSheets" dans la rubrique "Name:=" mais ça ne marche pas. Est-ce que qqn pourrait m'aider svp ?

Pour résumer, je voudrais générer un graphique sur la feuille qui est active lorsque je clique sur la macro.

Merci d'avance
NiKoS29