Comment faire pour qu'une fonction renvoie un tableau?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment faire pour qu'une fonction renvoie un tableau?

lucky613

Salut à tous, j'ai juste une petite question:
Comment faire pour qu'une fonction renvoie un tableau?
En fait je dois passer un tableau en argument et j'aimerai qu'il me renvoie également un tableau

Actuellement, j'ai ceci

Dim A(1 To 3, 1 To 3) As Double
... je definis A...

Dim A3(1 To 3, 1 To 3) As Double
A3 = Produit_matriciel3(A)

Public Function Produit_matriciel3(A() As Double) As Double
...
End Function

et donc ca marche pour passer le tableau en parametre mais je sais pas où ni comment lui dire que la fonction renvoie un tableau

Merci de m'aider

Publicité

rage44

tu pourais mettre un byref devant un argument pour qu'il passe par référence et non pas par valeur et t'en resservir une fois sortit de la fonction, mais là ce n'est pas vraiment la fonction qui renvoie le résultat, c'est plutôt toi qui fournit un paramètre à remplir par la fonction (et tu mets un booléen sur la fonction).
Dim Produit_matriciel3(A() as double, byref A3() as double) as boolean

if not(Produit-matriciel3(A,A3)) then
'raise une erreur....
else
'A3 contient le produit matriciel
end if

FlorentG

Unité de Masse

Ben tu déclare ta fonction comme ça :

Code :

Public Function Produit_matriciel3(A() As Double) As Double()

Note les () après le As Double(), ça indique que tu renvoi un tableau.
Et puis donc dans ta fonction tu déclare ton tableau normal, donc genre :

Code :

Public Function Produit_matriciel3(A() As Double) As Double()
Dim Bidule(1 To 3, 1 To 3) As Double
...
Return Bidule
End Function

Message édité par FlorentG le 04-01-2005 à 21:47:44

Vincent VEGA

connu aussi comme La_Fouine

ou alors tu passe par le type variant (comme type de retour) qui est beaucoup plus souple car il permet d'imbriquer n'importe quel autre type

alino-91

Code :

' Une autre solution avec Split
Public Sub Randomise()
Dim str As String, i As Integer
str = Test()
MsgBox (str)
Dim Tableau() As String
Tableau = Split(str, "#" )
For i = 0 To 2 - 1
MsgBox (Tableau(i))
Next i
End Sub
Public Function Test() As String
Dim s As String
s = "One"
s = s & "#Two"
Test = s
End Function

alino-91

Code :

' Une autre solution avec Split
Public Sub Randomise()
Dim str As String, i As Integer
str = Test()
MsgBox (str)
Dim Tableau() As String
Tableau = Split(str, "#" )
For i = 0 To 2 - 1
MsgBox (Tableau(i))
Next i
End Sub
Public Function Test() As String
Dim s As String
s = "One"
s = s & "#Two"
Test = s
End Function

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Comment faire pour qu'une fonction renvoie un tableau?

Sujets relatifs
créer une barre de défilement dans un tableau	scrutation d'un tableau
Pdf Remettre l'entete d'un tableau au saut de page.	executer un scrpt en fonction de l'ip de l'user
tableau	Fonction asm utilisable en C++, linker error...
Probleme de declaration d'un tableau	[Maple] cherche une fonction qui retourne la taille d'une table
Socket : la fonction connect.	[C] une fonction qui renvoie un tableau de 3 doubles ??
Plus de sujets relatifs à : Comment faire pour qu'une fonction renvoie un tableau?

Page générée en 0.038 secondes