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 : Sélectionner tout - Visualiser dans une fenêtre à part
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