Range d'un graphe

Bonjour,

J'ai du mal pour tracer un graphe avec un plage de données définie par un range comme ci-dessous.
J'ai une erreur 1004 : la méthode Cells de l'objet _Global a échouée.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub CommandButton1_Click()   Charts.Add ActiveChart.ChartType = xlXYScatterSmoothNoMarkers ActiveChart.SetSourceData Source:=Sheets("Feuil1").Range(Cells(1, 1), Cells(5, 3)) ActiveChart.Location Where:=xlLocationAsObject, Name:="Feuil1"   End Sub

---

J'ai pour but ensuite de remplacer les indexs par des variables du genre
Range(Cells(x, y), Cells(z, t))

Merci pour vos éclaircissements

Code:

---

Sheets("Feuil1").Range(Sheets("Feuil1").Cells(1, 1), Sheets("Feuil1").Cells(5, 3))

---

Ou

Code:

---

Sheets("Feuil1").Range ("A1:C5")

---

Tu peux formaliser ton code comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() Dim Gr As ChartObject   Set Gr = Sheets("Feuil1").ChartObjects.Add(200, 100, 400, 300) With Gr.Chart .ChartType = xlXYScatterSmoothNoMarkers .SetSourceData Source:=Sheets("Feuil1").Range(Sheets("Feuil1").Cells(1, 1), Sheets("Feuil1").Cells(12, 3)) End With Set Gr = Nothing End Sub

---