Discussion :

[VRA6183]

Bonjour,

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

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
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

[mercatog]

Bonjour
il fallait affecter MyArray a test

Code :

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

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

[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.

[mercatog]

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

[VRA6183]

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

Code :

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

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 :

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

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 :

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

Dim testarray() As Integer

Savez-vous pourquoi ?

[mercatog]

Code :

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

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