Récupérer une var de type table d'une Fonction

Version imprimable

Bonjour,

Il y a quelque chose que je n'ai pas compris dans le passage de variable dans une fonction, je pensais pouvoir faire cela et ça ne marche pas!
Pour être précis, passer des arguments et récupérer une valeur, c'est OK, mais récupérer une table, là je sèche!!!

Ici un exemple simplifié, et si on peut m'aider à comprendre là où je fait faux...
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 sub principale Dim nom1 as String, nom2 as String, nom3 as String Dim table1(2) as String 'divers traitement... et ensuite table1 () = maFonction (nom1, nom2, nom3) 'et ensuite utiliser valeurs contenue dans la table si table1(0) = etc... then si table1(1) = etc... then etc... end sub sub maFonction (arg1 as String, arg2 as string, arg3 as string) as String Dim argTableA(2) as String 'divers traitement... et ensuite argTableA(0) = arg1 argTableA(1) = arg2 argTableA(2) = arg3 maFonction = argTableA() end function
Merci à vous ;-)

Bonjour,

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
Sub principale()
Dim nom1 As String, nom2 As String, nom3 As String
Dim table1 As Variant 'le type est Variant
Dim i&
'---
'divers traitement... et ensuite
nom1 = "toto"
nom2 = "kiki"
nom3 = "zaza"
 
table1 = maFonction(nom1, nom2, nom3)
 
'et ensuite utiliser valeurs contenue dans la table
For i& = LBound(table1) To UBound(table1)
  MsgBox table1(i&)
Next i&
End Sub
 
Function maFonction(arg1 As String, arg2 As String, arg3 As String) As Variant 'le type du retour est Variant
Dim argTableA(2) As String
'---
'divers traitement... et ensuite
 
 argTableA(0) = arg1
 argTableA(1) = arg2
 argTableA(2) = arg3
 
 maFonction = argTableA
 
End Function

25/10/2016, 10h17
letal

OK PMO2017, je commence à voir!
En fait, tu utilises un type Variant et tu ne spécifies pas la taille et donc pas de parenthèse.
Ensuite, reste plus qu'à piocher dans la table (en restant dans les limites), c'est génial :D

Merci à toi !!!

Bonjour,
petite variante du poste de PMO2017!

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
 
Sub principale()
Dim table1 As Variant 'le type est Variant, i&
'---
'divers traitement... et ensuite
table1 = maFonction("toto", "kiki", "zaza")
 'et ensuite utiliser valeurs contenue dans la table
For i& = LBound(table1) To UBound(table1)
  MsgBox table1(i&)
Next i&
table1 = maFonction("Moi")
For i& = LBound(table1) To UBound(table1)
  MsgBox table1(i&)
Next i&
table1 = maFonction("Moi", "Toi")
For i& = LBound(table1) To UBound(table1)
  MsgBox table1(i&)
Next i&
table1 = maFonction("Moi", "Toi", "lui", "nous", "eux", "autre", "Bof", "Truc", "Machin")
For i& = LBound(table1) To UBound(table1)
  MsgBox table1(i&)
Next i&
End Sub
 
Function maFonction(ParamArray Plage()) As Variant 'le type du retour est Variant
Dim argTableA() As String, i As Long
'---
'divers traitement... et ensuite
For i = 0 To UBound(Plage)
    ReDim Preserve argTableA(i)
    argTableA(i) = Plage(i)
Next
  maFonction = argTableA
 
End Function

25/10/2016, 10h45
letal

Intéressant aussi, merci dysorthographie!
Par contre si je connais les Arrays, je ne connais pas : ParamArray, tu peux me dire quelques mots dessus stp

Code:

Function maFonction(ParamArray Plage()) As Variant
25/10/2016, 10h46
patricktoulon

re
re
Bonjour
perso je comprends pas tres bien le besoins de passer par une fonction détachée puisque qu'au finale table1 est un simple tableau a 1 dim
Code:

1 2 3 4 table1 = array(nom1, nom2, nom3) for i= 0 to ubound(table1) msgbox table1(i) next
si on veut faire de table1 un tableau a 2 dim(ligne/colonne) en l'occurrence 3 lignes et 1 colonne
Code:

1 2 3 4 table1 = application.transpose(array(nom1, nom2, nom3)) for i= 0 to ubound(table1) msgbox table1(i,1) next
non je ne vois pas
25/10/2016, 10h56
unparia

Bonjour

Les tenants et aboutissants n'étant pas vraiment détaillés, je vais me contenter de parler de la manière finalement la plus simple (et confortable) de traiter un array ou une matrice dans une procédure distincte de celle d'appel.
En lieu et place d'une fonction, utiliser une sous-routine (une procédure "sub") en lui passant par référence (ByRef) l'array ou la matrice à traiter.
25/10/2016, 11h02
Invité
ParamArray Tableau()

ParamArray permet de passer en paramétré un tableau don on ne connais pas la dimension!

on le dimensionne en lui donnant autant de variable qu'il y a d'items dans le tableau()

ce qui revient à faire ce que PMO2017 proposait! mais là on dimensionne le tableau dynamiquement.

Code:

table1 = maFonction("toto", "kiki", "zaza")

Code:

Tableau=maFonction(var1,var2,etc...)
Code:

1 2 table1 = maFonction("Moi") table1 = maFonction("Moi", "Toi", "lui", "nous", "eux", "autre", "Bof", "Truc", "Machin",Var10,Etc...)
c'est plus complique si on passe une plage de cellule mais çamarche!

Code:

table1 = maFonction(range("A1:B2"), range("D1:E2"))

http://www.developpez.net/forums/d15...s/#post8560044

Citation:

En lieu et place d'une fonction, utiliser une sous-routine (une procédure "sub") en lui passant par référence (ByRef) l'array ou la matrice à traiter.

ceci implique de connaitre la taille de la matrice, d'ou mon exemple, si non Patrick a fortement raison!
25/10/2016, 11h55
letal

Ok, j'ai compris, merci à vous tous, c'est plus clair maintenant!
Ce que je voulais vraiment capter c'était ce truc basique de la fonction que me retourne une table (de type Variant) qui me bloquait parfois et que je contournait par d'autres façon!

PS. patricktoulon, pour info il s'agit d'un exemple simplifié à l’extrême, et dans mon cas c'était pertinent! Par contre, je peux me poser la question si ma fonction ne fait finalement pas trop de chose et que je devrais la subdiviser en plusieurs partie, mais ça, c'est une autre histoire :D
25/10/2016, 12h06
patricktoulon

re

re
oui j'avais compris que c'était pas si simple

perso la suggestion de dysorthographe + me parait idéale
sinon tu t'en sort pas avec tout ces vas et viens

une fonction (pas une sub) peut faire office de macro ou variable
car elle peut agir et/ou retourner une variable ou un ensemble de variables
dans ton cas le param array c'est nickel

attention le param array n'est pas optional tout même
ce qui est attendu doit correspondre a ce qui est envoyé