Bonjour,
Il faut faire le ReDim dans la boucle comme ceci :
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim elid()
i = 0
For k = 1 To nbpts - 1
For j = 1 To 3
ReDim elid(i)
elid(i) = 30016021 + (j - 1) + (k - 1) * 40
MsgBox (elid(i))
i = i + 1
Next j
Next k
Juste une précision le ReDim efface les données du tableau au fur et à mesure.
Si on souhaite conserver les données du tableau (ce qui est le plus souvent le cas) voici la syntaxe :
ReDim Preserve elid(i)
A+
Cordialement,