Dimension spécifiée non valide pour le type de graphique en cours [Résolu]

[Monte_Carlo]

Bonjour tout le monde,

J'essaye de faire un graphique à partir de VBA!!
Ma place de données est : A170
La colonne A étant les abscisses et les autres colonnes sont 3 séries différentes
Lorsque j'exécute mon code, le graphique s'affiche bien mais j'ai un erreur 1004 : Dimension spécifiée non valide pour le type de graphique en cours

Voici mon code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub testNew()
 
ActiveWorkbook.Sheets("Feuil3").Select
Cells(1, 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
 
myrange = Range(Selection, Selection)
 
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Range(myrange)
 
End Sub

Quelqu'un aurait - il une solution?

Merci d'avance

[mercatog]

Essaies comme ceci

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub TestNew()
Dim LastLig As Long
Dim Ch As Chart
 
Application.ScreenUpdating = False
With ThisWorkbook.Sheets("Feuil3")
    LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
    Set Ch = .ChartObjects.Add(100, 100, 300, 200).Chart
    Ch.ChartType = xlLine
    Ch.SetSourceData .Range("A1:D" & LastLig)
    Set Ch = Nothing
End With
End Sub

[Monte_Carlo]

ça fonctionne merci beaucoup mercatog !!!