Discussion :

[gtkill]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Tu peux formaliser ton code comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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