fonction qui retourne un tableau

Version imprimable

09/07/2007, 12h20
canabral

fonction qui retourne un tableau
Bonjour,

1/Je souhaite créer une fonction qui retoune un tableau et qui accepte en paramètre 2 tableaux.
Voilà en gros la déclaration de la fonction:
Code:

1 2 3 4 5 6 Function produit_matrice(matrice_x(), matrice_y()) produit_matrice(1,1) = somme End Function
Je n'arrive pas à retourner un tableau comme résultat de ma fonction (ici produit_matrice), comment faut-il faire? est-ce que c'est possible?

2/Sinon j'utilise aussi la fonction produit de matrice (en vba MMULT ) en passant en paramètre 2 tableaux mais il y a un message d'erreur comme quoi il n'arrive pas à lire la fonction, peut-on passer des tableaux en paramètres? :
Code:

1 2 WorksheetFunction.MMult(matrice_y, matrice_x)
Merci d'avance.

Simon
09/07/2007, 14h16
zazaraignée

Tu dois faire une procédure qui a pour paramètres les trois tableaux où les deux premiers sont ceux sur lesquels tu veux faire les opérations et le troixième est celui qui reçoit le résultat. Attention, si tu ne veux pas modifier tes tableaux de départ (les deux premiers), tu dois les mettre en ByVal.

Code:

Sub produit_matrice(ByVal matrice_x(), ByVal matrice_y(), ByRef matrice_resultat())

Remarque (et c'est important si tu veux récupérer les valeurs) que le troisième tableau est passé ByRef.
09/07/2007, 17h13
canabral

merci ça marche !!!

Salut j'essaie de passer un tableau en parametre dans une Sub mais il me demande de mettre := à la fin de la ligne en rouge...

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

Dim DonneesService(4) As String

RenvoieService(Cellule.Offset(j), ChefDeServiceWorkbook, DonneesService())
    
If DonneesService <> "" Then
   CelluleTemp.Offset(j) = Cellule.Offset(j)
   CelluleTemp.Offset(j, 1) = DonneesService(1)
   CelluleTemp.Offset(j, 2) = DonneesService(2)
   CelluleTemp.Offset(j, 3) = DonneesService(3)
   CelluleTemp.Offset(j, 4) = DonneesService(4)
End If


'La fonction Sub

Sub RenvoieService(NumUm As String, ChefDeServiceWorkbook As Workbook, ByRef DonnesService() As String)


Dim Cellule As Range
Dim i As Integer


Set Cellule = ChefDeServiceWorkbook.Sheets("Chef de Service").Range("K2")

    Do While Cellule.Offset(i) <> ""
    
        If Cellule.Offset(i) = NumUm And ServiceEstValide(NumUm, ChefDeServiceWorkbook, i) = True Then
                         
            DonneesService(1) = ChefDeServiceWorkbook.Sheets("Chef de Service").Range("A" & Cellule.Offset(i).Row)
            DonneesService(2) = ChefDeServiceWorkbook.Sheets("Chef de Service").Range("B" & Cellule.Offset(i).Row)
            DonneesService(3) = ChefDeServiceWorkbook.Sheets("Chef de Service").Range("C" & Cellule.Offset(i).Row)
            DonneesService(4) = ChefDeServiceWorkbook.Sheets("Chef de Service").Range("R" & Cellule.Offset(i).Row)
            
            Exit Sub
        End If
                
        i = i + 1
    Loop

    DonneesService = ""

End Sub

Ps pour renvoyer un tableau vide ca marche ""?

27/07/2007, 11h15
viscere

oups je savais pas qu il fallait mettre Call pour exécuter une procédure...

Par contre je n'ai toujours pas trouvé comment mettre un tableau à Null.

J'ai essayé Null, "".
28/07/2007, 23h37
AlainTech

Citation:

Envoyé par viscere

oups je savais pas qu il fallait mettre Call pour exécuter une procédure...

Tu n'es pas obligé de mettre Call mais si tu passes plus d'un paramètre, il faut supprimer les parenthèses.