Discussion :

[kinenveux]

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 :

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

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

[l_autodidacte]

Teste ce

Code :

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

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

[ProgElecT]

Salut

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

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

[kinenveux]

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