Discussion :

[ader277]

je veux créer une procédure qui modifie des tableaux :

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
Function modifier(ByRef vecteur1, vecteur2, vecteur3)
    Dim somme As Double
    somme = 0
    For j = 0 To UBound(vecteur1)
    vecteur1(j) = vecteur2(j) + vecteur3(j)
    somme = vecteur1(j) + somme
    Next j
    For j = 0 To UBound(vecteur1)
    vecteur1(j) = vecteur1(j) / somme
    Next j
 
End Function
Sub test2()
Dim vec1(4)
Dim vec2(4)
Dim vec3(4)
For i = 0 To 4
vec1(i) = 1
vec2(i) = 1
vec3(i) = 1
Next i
modifier(vec1, vec2, vec3)
End Sub

il me sort cette erreur:
attendu := dans la ligne modifier(vec1, vec2, vec3) !!!!???