graphiques à plages variables (vba)

[bernaroff]

Bonjour à tous,

J'ai un problème avec mon graphiques dans ma macro
Le problème que je voudrais régler c'est changer un

ActiveChart.SeriesCollection(1).Values = "='Rendements'!$D$23:$E$23"

par un truc du genre

ActiveChart.SeriesCollection(1).Values = range(Sheets("Rendements").cells(23,1), Sheets("Rendements").cells(23,k))

En effet mes plages de données varient et la dernière valeur se trouve dans la colonne k

De plus dans ma macro, le graphe ne veut pas se créer avec
ActiveSheet.Shapes.AddChart.Select

je vous mets tous ça en PJ

Merci beaucoup
Cdt
Bernaroff

 

[Dranreb]

Re : graphiques à plages variables (vba)

Bonjour
Apparemment il exige que les formules soient entrées en R1C1:

'graphique
   Dim Gph As Chart, Sér As Series
    Set Gph = ActiveSheet.ChartObjects.Add(100, 100, 300, 200).Chart
    Gph.ChartType = xlLineMarkers
    Set Sér = Gph.SeriesCollection.NewSeries
    Sér.Name = "='Rendements'!R23C1"
    Sér.Values = "='Rendements'!R23C4:R23C" & k
    Sér.XValues = "='Rendements'!R1C4:R1C" & k
    Set Sér = ActiveChart.SeriesCollection.NewSeries
    Sér.Name = "='Rendements'!  etc.

À+

 

[bernaroff]

Re : graphiques à plages variables (vba)

RE:

merci beaucoup, c'était bien l'erreur en question

Cdt
Bernaroff