Problème création graphique

Bonjour à tous,

Voilà j'ai un problème au niveau de mon graphique. Voici le code:

Code:

---

1 2 3 4 5 6 7

Range("G9").Select Selection.CurrentRegion.Select Charts.Add ActiveChart.ChartType = xlColumnStacked ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(ActiveCell, ActiveCell.End(xlToRight)), PlotBy _ :=xlColumns ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil2"

---

La macro s'arrête sur la ligne où il y a la source.
J'ai essayé plusieurs choses mais rien à faire!

Avez vous des solutions à me proposer?

bonjour

Tu peux tester cette adaptation

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim Plage As Range   Set Plage = Feuil2.Range("G9").CurrentRegion Charts.Add   With ActiveChart .ChartType = xlColumnStacked .SetSourceData Source:=Plage, PlotBy:=xlColumns .Location Where:=xlLocationAsObject, Name:="Feuil2"   'Une autre possibilité : '.Location Where:=xlLocationAsObject, Name:=Plage.Parent.Name End With

---

bon après midi
michel