graphiques à plages variables (vba)

bernaroff

XLDnaute Junior
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
 

Pièces jointes

  • FR036 R moteur.xls
    56 KB · Affichages: 83
  • FR036 R moteur.xls
    56 KB · Affichages: 89
  • FR036 R moteur.xls
    56 KB · Affichages: 92

Dranreb

XLDnaute Barbatruc
Re : graphiques à plages variables (vba)

Bonjour
Apparemment il exige que les formules soient entrées en R1C1:
VB:
'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.
À+
 
Dernière édition:

Discussions similaires

Réponses
17
Affichages
1 K
Réponses
3
Affichages
507
Réponses
6
Affichages
597

Statistiques des forums

Discussions
314 450
Messages
2 109 727
Membres
110 552
dernier inscrit
jasson