Discussion :

[canabral]

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 :

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

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 :

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

1
2
 
WorksheetFunction.MMult(matrice_y, matrice_x)

Merci d'avance.

Simon

[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 :

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

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.

[canabral]

merci ça marche !!!

[viscere]

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 :

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

[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, "".

[AlainTech]

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.