bonjour tout le monde,

J'ai un probème sur une fonction qui doit appeler une autre fonction qui retourne une matrice.
ci-après la premiere fonction que je dois appeler dans une autre fonction
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
Function foyer(longueurs As Range) As range
 
n = Application.Count(longueurs)
Dim fd As Double
Dim foyerg() As Double
Dim foyerd() As Double
ReDim foyerg(1 To n)
ReDim foyerd(1 To n)
 
For i = n To 1 Step -1
 
'CALCUL DES FOYERS GAUCHE ET DROITE
    If i = n Then
        fd = 0
        Else
        fd = (longueurs(i) / 6) / ((longueurs(i) / 3) _
        + (longueurs(i + 1) / 3) - (longueurs(i + 1) / 6) * fd)
    End If
    foyerd(i) = (fd)
     'Debug.Print foyerd(i)
 Next i
 
For i = 1 To n
    If i = 1 Then
    fg = 0
    Else
    fg = (longueurs(i) / 6) / ((longueurs(i - 1) / 3) _
    + (longueurs(i) / 3) - (longueurs(i - 1) / 6) * fg)
    End If
    foyerg(i) = (fg)
    'Debug.Print foyerg(i)
Next i
 
 
foyer = Array(foyerg, foyerd)
 
End Function
Je dois utiliser la fonction dont le code est donné ci-dessus dans une autre fonction pour faire un calcul complémentaire. Cependant en appellant la fonction foyer définit ci-avant, j'ai rien en affichage avec debug.print.
le code qui me pose problème est donnée ci-dessous.

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
Function poutres_continues_répartie(longueurs As Range, repartie As Range, xetude)
n = Application.Count(longueurs)
Dim foy() As Double
ReDim foy(1 To n, 1 To n)
foy() = foyer(longueurs)
 
For i = 1 To n
For j = 1 To n
    foy(i, j) = foyer(longueurs)
 
    Debug.Print foy(i, j)
 
Next
Next
 
End Function
Merci d'avance pour vos aides qui me seront précieuses.