XL 2021 Nom de variable dans boucle for

[mr_cocktail]

Bonjour,
Je suis entrain d'étudier une fonction du polynôme du 4eme degrés. je voudrais pour voir son évolution la tracer.
Mon problème est qu'il y a 8 coordonnées a calculer et je ne trouve pas un moyen avec une boucle For pour calculer chaque coordonnées.
Je pensais quand mettant la variable comme pour msgbox serait bon mais ce n'est pas le cas ...

Voici mon code:

Dim pt1x As Single, pt1y As Single, pt2x As Single, pt2y As Single, pt3x As Single, pt3y As Single, pt4x As Single, pt4y As Single, pt5x As Single, pt5y As Single, pt6x As Single, pt6y As Single, pt7x As Single, pt7y As Single

pt1x = 169
pt2x = 204.6667
pt3x = 222.5
pt4x = 240.333
pt5x = 258.16667
pt6x = 276
pt7x = 329.35


For i = 1 To 8
"pt" & i & "y"= -0.0000025 * "pt" & i & "x" ^ 3 - 0.0068 * "pt" & i & "x" ^ 2 + 3.65 * "pt" & i & "x" + 283

Next


With ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, pt1x, pt1y)
.AddNodes msoSegmentCurve, msoEditingAuto, pt2x, pt2y, pt3x, pt3y, pt4x, pt4y
.AddNodes msoSegmentCurve, msoEditingAuto, pt5x, pt5y, pt6x, pt6y, pt7x, pt7y

.ConvertToShape.Select
End With

With Selection
.Name = "Ligne9"
End With

Merci d'avance pour votre aide et bonne journée !!

 

[Dranreb]

Bonjour.
Utilisez un tableau fixe ou dynamique.
Le dynamique se déclare sans mettre de dimension à l'intérieur des parenthèses qui doivent suivre son nom, mais s'il ne sera pas récupéré de la valeur d'une plage, il faudra le dimensionner lors de l'exécution par une instruction Redim avant de pouvoir accéder à un de ses éléments.