affectation tableau ds un autre tableau

Bonjour,

j'aimerais, par l'intermédiaire d'une fonction, renvoyer un tableau et l'affecter dans un autre tableau. j'ai sur la ligne "tab=maFonction()" erreur : type incompatible.

exemple :
Code:

1 2 3 4 5 6 7 8 9 dim tab(1) tab = maFonction() function maFonction () dim tab1(1) tab1(0) = "A" tab1(1) = "B" mafonction = tab1 end function
Merci de votre aide

Teste ce

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim Tab1, Tb
 
   Tb = maFonction()
   MsgBox Tb(0)
   MsgBox Tb(1)
 
Function maFonction() 
  Dim Tab1(1)
  Tab1(0) = "A"
  Tab1(1) = "B"
  maFonction = Tab1
End Function

Salut

Moi j'avais cela sur une disquette qui date, un moyen détourné car à l'époque je ne savais pas faire autrement :(

Code:

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Function RecupTout(QuelTableau)
dim TabArray
 
TabArray = join(QuelTableau,";")
RecupTout =  TabArray
End Function
'-------------------------------------------------------
Function RecupPartie(QuelTableau,Deb,Fin)
dim TabArray, T
 
For T = Deb to Fin
      TabArray = TabArray &  QuelTableau(T) & ";"
next
RecupPartie =  TabArray
End Function
'-------------------------------------------------------
 
 
Dim TablRecup,TablARecup(4),TablPourVoire(3)
 
'histoire d'avoir un tableau a récupérer
TablARecup(0)="trois"
TablARecup(1)="deux"
TablARecup(2)="un"
TablARecup(3)="zero"
TablARecup(4)="....Boum"
 
TablRecup  = split(RecupTout(TablARecup),";")
msgbox TablRecup (0) & "  " & TablRecup (1) & "  "  & TablRecup (2)& "  "  & TablRecup (3) & "  "  & TablRecup (4),,"Essais N°1"
 
'histoire d'avoir un autre tableau a récupérer, juste pour voire
TablPourVoire(0)="Ben"
TablPourVoire(1)="cela"
TablPourVoire(2)="fonctionne"
TablPourVoire(3)="aussi"
 
TablRecup  = split(RecupTout(TablPourVoire),";")
msgbox TablRecup (0) & "  " & TablRecup (1) & "  "  & TablRecup (2)& "  "  & TablRecup (3),,"Essais N°2"
 
TablRecup  = split(RecupPartie(TablPourVoire,1,2),";")
msgbox TablRecup (0) & "  " & TablRecup (1),,"Essais N°3"

Merci beaucoup autodidacte cela fonctionne:ccool:. Je vais maintenant essayer de comprendre pourquoi !