Discussion :

[Ledaf]

Bonjour à tous,

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

Code :

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

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?

[SilkyRoad]

bonjour

Tu peux tester cette adaptation

Code :

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

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