paramètres variables et boucle for

Bonjour,
j'essaye de faire deux boucles l'une dans l'autre pour faire varier deux parmètres.
Je pense mal déclarer mes paramètres pour mon noe(),mon but est de pouvoir récupérer les coordonnées de mes nœuds et les appelés dans un fichier texte.
si quelqu'un peut m'aider a comprendre cela

merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub détermination_noeuds_elements()     Dim j, i, x, pas, lg As Integer Dim noe() As Double   lg = CInt(tblg.Text) pas = CInt(tbpas.Text)   nbnoe = 15 'celui-ci variera d'ou ma boucle   For i = 1 To nbnoe Step 1 y = 0   For j = 0 To lg Step pas   noe(i) = i & Space(1) & x & Space(1) & y   'noe i = "i" "espace" "coordonnée de x" "espace" "coordonnée de y" 'exemple: noe 1 = 1 550 0   Next j Next i   End Sub

---

C'est quoi ta question exactement, par ce que , là, c'est pas clair.

Accessoirement, dans le bout de code que tu as posté, la boucle interne ne fait rien.

et noe est déclaré mais jamais initialisé...

Citation:

---

Envoyé par tomlev

et noe est déclaré mais jamais initialisé...

---

Tiens, je l'avais pas vu ça.

La deuxième boucle était pour x= j donc que j'ai changé en j

Que veux tu dire par "et noe est déclaré mais jamais initialisé..", c'est peut être cela mon pbm...

Ce que je veux c'est attribué à noe(i) des paramètres.
ces paramètres changeront après en fonction du nombre de noeud.

pour que plus tard je puisse appelé le noe(i) que je souhaite et récupérer ces paramètres

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Private Sub détermination_noeuds_elements() Dim j, i, x, pas, lg As Integer Dim noe() As Double lg = CInt(tblg.Text) pas = CInt(tbpas.Text) nbnoe = 15 'celui-ci variera d'ou ma boucle For i = 1 To nbnoe Step 1 y = 0 For j = 0 To lg Step pas noe(i) = i & Space(1) & j & Space(1) & y 'noe i = "i" "espace" "coordonnée de x" "espace" "coordonnée de y" 'exemple: noe 1 = 1 550 0 Next j Next i End Sub

---

Citation:

---

Envoyé par xam44

Que veux tu dire par "et noe est déclaré mais jamais initialisé..", c'est peut être cela mon pbm...

---

Ben tu déclares noe en disant que c'est un tableau de Double, mais jamais tu ne dis quelle taille il doit faire... Il faudrait faire un truc du genre :

Code:

---

Redim noe(nbnoe)

---