Retourner un Array à la Sub

Version imprimable

Bonjour,

J'ai petit soucis pour retourner un Array à ma procédure appelante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Button1_Click()
 
  Dim testarray As Variant
  testarray = test()
 
  Dim i As Integer
  For i = 0 To 1
   MsgBox "" & testarray(i) 'ici il me retourne un type mismatch
  Next i
 
End Sub
 
 
Function test() As Variant
 
    Dim MyArray(1) As String
    MyArray(0) = 10
    MyArray(1) = 30
 
End Function

Bonjour
il fallait affecter MyArray a test

Code:

1
2
3
4
5
6
7
Function test() As String()
Dim MyArray(1) As String
 
MyArray(0) = 10
MyArray(1) = 30
test = MyArray 'ICI
End Function

18/07/2011, 13h37
neupont

Bonjour mercatog, tu es sûr qu'on peut renvoyer un array via une sub ? Il me semblait que c'était impossible et que le seul moyen était d'utiliser des array de portée publique. Mais je confonds peut-être.
18/07/2011, 13h48
mercatog

Bonjour
Relis la question initiale et la réponse fournie.
la fonction test retourne un tableau qu'il utilise dans sa procédure.

Merci de vos réponses mais je n'ai pas encore réussi a le faire fonctionner.
J'en suis la :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Button1_Click() Dim testarray(1) As Integer testarray = test() MsgBox "" & testarray(0) MsgBox "" & testarray(1) End Sub Function test() As Integer() Dim MyArray(1) As Integer MyArray(0) = 10 MyArray(1) = 30 test = MyArray End Function
Sur la ligne :

Code:

testarray = test()

J'ai Compile error: Can't assign to array.

Le problème se solutionne si je ne définis pas la taille du Array :

Code:

Dim testarray() As Integer

Savez-vous pourquoi ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Button1_Click()
Dim testarray As Variant
 
testarray = test()
MsgBox testarray(0)
MsgBox testarray(1)
End Sub
Function test() As Integer()
Dim MyArray(0 To 1) As Integer
 
MyArray(0) = 10
MyArray(1) = 30
test = MyArray
End Function