Discussion :

[laminedu63]

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.

[eriiic]

Bonjour

Teste en mettant foy() as Variant et sans le dimensionner, puis te te crée un autre tableau avec le résultat.
eric

[laminedu63]

Salut Eriic merci beaucoup pour ton aide mais si j'ai bien compris ta proposition le code serai:

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 Variant
 
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

En faisant cela j'ai toujours rien en affichage (debug.print).
Peut être que j'ai mal compris ta proposition.
Merci beaucoup

[eriiic]

En fait c'est foy as variant, sans les ()

Sinon beaucoup trop d'erreurs et d'incohérences dans ton code. Je suppose que tu as dû avoir des messages d'erreurs avant même d'arriver au debug.print.

Déjà avec n = Application.Count(longueurs) n=0. C'est vraiment ça que tu veux ? il fait t'aider des espions pour contrôler tes variables et déboguer.
Je suppose que tu voulais plus qq chose comme n = longueurs.Rows.Count

Ensuite foy prendra les dimensions de ton range, pas celle que tu voulais : ReDim foy(1 To n, 1 To n)
A toi de créer un autre tableau que tu remplis en bouclant s'il faut.

Et encore foyer = Array(foyerg, foyerd), soit un tableau de 2 tableaux à 1 dimension que tu veux faire rentrer dans un tableau (1 To n, 1 To n). Tout cela n'a aucun sens, on a l'impression que tu programme au hasard en espérant que ça marche. Leçon 1 : ça ne marche JAMAIS cette technique. Il comprendre un minimum ce qu'on fait.
Penche-toi sur les bases qui sont nécessaires, et sur le débogage si tu veux avancer.
eric

[laminedu63]

bonjour Eriiic,
effectivement en faisant un debug.print Ubound (foyer) j'obtiens 1 (MEA CULPA erreur de débutant).
Je me suis laisser tromper par le rendu des résultats sur exel que voici.

En effet, le résultat est affiché sur 2 lignes et 7 colonnes.
par ailleurs, avec les données longueurs de l'image ci-dessus, j'obtiens n=7 (infos non fournis au début de ma question aussi).

Les données d'entrée pour repartie sont (voir image ci-dessous)

et xetude=3 mais pour le moment sans importance.

Merci pour les pistes et pour ton aide.

[laminedu63]

Merci pour vos aides qui seront les bienvenus.