Tracé une courbe avec l'objet Chart

Question

' 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.
@+
 :)

Adoc5 · Answer

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.

 :)

Adoc5 · Answer

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

 :)

Adoc5 · Answer

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.
 :)

Tracé une courbe avec l'objet Chart

3 réponses

Discussions similaires