Adoc5
Messages postés53Date d'inscriptionlundi 3 mai 2004StatutMembreDernière intervention 1 octobre 2007
-
10 mai 2004 à 09:06
Adoc5
Messages postés53Date d'inscriptionlundi 3 mai 2004StatutMembreDernière intervention 1 octobre 2007
-
10 mai 2004 à 09:34
' 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.
Adoc5
Messages postés53Date d'inscriptionlundi 3 mai 2004StatutMembreDernière intervention 1 octobre 20071 10 mai 2004 à 09:08
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"