Array

Salut Serge et le forum,

Comme ceci ça devrait être mieux,

Sub Passer()
Dim X() As Double
Dim Y() As Double,i as long,vx as double
redim X(i),Y(i) 'on déclare les 2 tableaux à 1 dimension
For vx = -1 To 1 Step 0.1
X(i) = vx
Y(i) = vx ^ 2
i = i + 1
redim preserve x(i),y(i)' on redimensionne sans effacer les valeurs
Next vx
With ActiveChart.SeriesCollection(1)
.XValues = X ' ???????
.Values = Y ' ???????
End With
End Sub

Rappel, les tableaux VBA ont comme indice de base 0, pour commencer à 1 on mets option base 1 en haut du module .

On pourrait trés bien déclarer dans le cas présent tes tableaux comme suit redim X(0 to 20) ou encore X(20), X(1 to 21) ,si l'option base 1 est mis X(21) car ta boucle donne 21 valeurs=> pas besoin du redim preserve dans ces cas.

A+++

Bonjour ZON,

Merci bien pour tes éclaircissements, ça fonctionne
impec mais le nombre de valeurs que je peux passer
à Xvalues et Values semble très restreint !
Bizarre, non ?
Voici la macro qui construit le graphique :

Sub ConstruireGraphiqueParTableauxVBA()
Dim X() As Double
Dim Y() As Double, i As Long, vx As Double
ReDim X(i), Y(i)
Application.ScreenUpdating = False
ici = ActiveSheet.Name
For vx = 1 To 80
'******************
'Pour cet exemple,
'plus grand que 80 ???
'******************
X(i) = vx
Y(i) = vx
i = i + 1
ReDim Preserve X(i), Y(i)
Next vx
Charts.Add
With ActiveChart
.ChartType = xlXYScatter
.Location Where:=xlLocationAsObject, Name:=ici
End With
Set ns = ActiveChart.SeriesCollection.NewSeries
With ns
.XValues = X
.Values = Y
End With
Application.ScreenUpdating = True
End Sub

Serge