[VBA] Creare grafici in serie in Excel

[buccio]

ciao a tutti, qualcuno sa come creare dei grafici in serie. Vi posto il codice che ho scritto:

Sub graphique()
Dim i, As Integer

With Sheets("PROD4").Select
For i = 896 To 1000
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatterSmoothNoMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "=""puissance réelle"""
ActiveChart.SeriesCollection(1).XValues = "=Range(Cells(i, 2), Cells(i + 96, 2)).Select"
ActiveChart.SeriesCollection(1).Values = "=Range(Cells(i, 3), Cells(i + 96, 3)).Select"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "=""puissance théorique"""
ActiveChart.SeriesCollection(2).XValues = "='PROD4'!Range(cells(i,2),cells(i+96),2).sele ct"
ActiveChart.SeriesCollection(2).Values = "='PROD4'!Range(cells(i,8),cells(i+96),8).sele ct"
Next i
End With
End Sub


il mio problema è la sintassi per selezionare le celle all'interno del ciclo for.
se qualcuno sa come fare lo ringrazio molto perchè è abbastanza urgente!!!!
grazie in anticipo
ciao

[alka]

Originariamente inviato da buccio
se qualcuno sa come fare lo ringrazio molto perchè è abbastanza urgente!!!!

Le discussioni qui hanno tutte la stessa urgenza.

Inoltre, esiste un Regolamento da leggere e rispettare che richiede di inserire il linguaggio di riferimento nel titolo. Qui l'ho aggiunto io, tienilo a mente per le discussioni future.

Ciao!