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) !!!!???

[ProgElecT]

Une fonction est fait pour renvoyer une valeur dans son nom, sinon c'est une Sub.
Fais appel à ta fonction de cette façon

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

modifier vec1, vec2, vec3

[ader277]

j'ai essayé ce que vous avez dit ,toujours la même erreur !!!!

[ader277]

c'est bon fallait mettre
Function modifier(vecteur1() As Double, vecteur2() As Double, vecteur3() As Double)
merci en tout cas

[iclic]

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

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3

NomdeVariable = modifier(vec1, vec2, vec3)

A+