VBAXL Graphique

[Dany]

Bonjour à tous,

J'ai plusieurs graphiques à réaliser...l'axe des x est toujours le même mais l'axe des y varie selon les colonnes. Je veux plusieurs graphiques...

J'arrive pas à faire changer la plage de valeur des ordonnées en fonction des colonnes...

Voici ce que j'essaie...

For i=2 to 100 Step 5

Charts.Add
ActiveChart.ChartType=xlXLSScatterSmooth
ActiveChart.PlotBy=xlColumns

ActiveChart.SeriesCollection.NewSeries

ActiveChart.SeriesCollection(1).XValues=
Worksheets("sheet1").Range("A1:A60")

ActiveChart.SeriesCollection(1).Values= Worksheets("sheet1").Range(Cells(1,i) , Cells(60,i))

Next i

La dernière ligne ne fonctionne pas!!!!!!!!!!!!!!!!!!!!!
Des suggestions?

 

[Dany]

Ca me prenait juste un with!!!!

With Worksheets("sheet1")
For i = 2 To 100 Step 5
Charts.Add
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.PlotBy = xlColumns

ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = Worksheets("sheet1").Range("A1:A10")

ActiveChart.SeriesCollection(1).Values = Worksheets("sheet1").Range(.Cells(1, i), .Cells(10, i))
ActiveChart.Location Where:=xlLocationAsObject, Name:="sheet1"
Next i
End With