Bonjour,

Je dois simuler, à l'aide d'une fonction, y colonnes, à x lignes, dont le résultat retourné est un tableau.

J'ai codé ma fonction ainsi:
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
Option Base 1
Dim L() as Double
Dim Col() as Double
 
Function Test (x, y) 
ReDim L(1,y)
ReDim Col(x, 1)
 
    For i = 1 To y
        For j = 1 To x
            Col(j, 1)= Rnd
 
        Next j
        L(1,i) = Col
    Next i
 
Test = L
End Function
J'ai voulu tester cette fonction avec une procédure test mais aucun résultat ne s'affiche
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub test1()
Worksheets("Feuil1").Activate
Range("A1:C4").Value = L(3, 4)
End Sub
Je pense qu'il doit y avoir un problème au niveau des boucles mais je ne parviens pas à trouver la solution.