Créer un graphique par macro

[carlos]

Bonjour

J'ai utilisé l'enregistreur de macro pour créer ce graphique .
Lorsque je l’exécute ca coince .

Sub Bouton1_Clic()
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range("A1:j1'")
ActiveChart.ChartType = xlXYScatterSmooth
ActiveChart.SetSourceData Source:=Range("a2:j2")
ActiveChart.SetSourceData ''''''''''''''''''''''''''''''''''''''''''''''''''' ca coince ici
ActiveChart.DisplayBlanksAs = xlZero

End Sub


Savez vous pourquoi ?

merci

Carlos

 

[MJ13]

Re : Créer un graphique par macro

Bonjour Carlos

Teste ceci:

Sub Bouton1_Clic()
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("A1:j1")
    ActiveChart.ChartType = xlXYScatterSmooth
    ActiveChart.SetSourceData Source:=Range("a2:j2")
    'ActiveChart.SetSourceData ' ca coince ici
    ActiveChart.DisplayBlanksAs = xlZero
End Sub