' Déclaration des variables
Dim X As Variant
Dim Y As Variant

' Parametrage de X et de y
X = Array(-100, -30, -20, -11, -9, 9, 11, 30, 100)
Y = Array(-40, -40, -28, -20, 0, 0, -20, -28, -40, -40)

A partir de là, je ne sais pas quelles sont le commandes VBA à entrer pour que Y se trace en fonction de X dans un objet Chart qui devra figurer dans ma feuille Excel.

Si quelqu'un peut m'aider ? Merci d'avance.
@+

Par la suite pour le tracé, j'ai écrit,
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("F20")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=X"
ActiveChart.SeriesCollection(1).Values = "=Y"
ActiveChart.SeriesCollection(1).Name = "=""Gabarit"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Gabarit"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

Mais le compilateur me jette pour les 2 lignes suivantes:
ActiveChart.SeriesCollection(1).XValues = "=X"
ActiveChart.SeriesCollection(1).Values = "=Y"

Merci à celui ou à celle qui pourra m'aider.

Ne cherchez plus, j'ai trouvé:


' Déclaration des variables
Dim X As Variant
Dim Y As Variant

' Parametrage de X et de y
X = Array(-100, -30, -20, -11, -9, 9, 11, 30, 100)
Y = Array(-40, -40, -28, -20, 0, 0, -20, -28, -40, -40)

Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("F20")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = X
ActiveChart.SeriesCollection(1).Values = Y
ActiveChart.SeriesCollection(1).Name = "=""Gabarit"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Gabarit"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
End Sub

Maintenant, j'aimerai ajouter une courbe sur ce même graphique. Quelles sont les commandes VBA à utiliser pour faire ce genre de chose ?

Merci d'avance.