Discussion :

[hellalaboy]

Bonjour

J'ai enregistré une macro de génération de grahe excel.Mais quand je l'execute ,ça se bloque au niveau de

Code :

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

ActiveSheet.Shapes.AddChart.Select

Je ne sais pas pourquoi car je l'ai enregistré manuellement.
Voici le code complet:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Macro1()
'
' Macro1 Macro
'
' Touche de raccourci du clavier: Ctrl+Maj+M
'
    Range("D7:I12").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'Feuil1'!$D$7:$I$12")
    ActiveChart.ChartType = xlXYScatterLinesNoMarkers
End Sub

Type d'erreur :Erreur d’exécution 1004
Merci

[mercatog]

Bonjour HellalaBoys (KAC)
Ici un exemple pour tracer un graphique (Utilises plutôt des variables objets mieux que les Activemachin)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TraceGrapheElementaire()
Dim Chrt As ChartObject
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    Set Chrt = .ChartObjects.Add(200, 50, 300, 160)
    Chrt.Chart.SetSourceData Source:=.Range("D7:I12")
End With
Chrt.Chart.ChartType = xlXYScatterLinesNoMarkers
Set Chrt = Nothing
End Sub