Discussion :

[laminedu63]

Bonjour à tout le monde,

J'ai fait une fonction qui doit faire des calculs avec les données d'entrées ci-dessous.


les formules de calcul avec les données d'entrées sont données dans le code 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
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
Function matricemomentappui(longueurs As Range, foyer As Range, rotation As Range)
EI = 1
Dim matrice() As Double
Dim fg() As Double
Dim fd() As Double
Dim rotg() As Double
Dim rotd() As Double
Dim i      As Integer    'pour parcourir les lignes de la matrice
Dim j      As Integer    'pour parcourir les colonnes de la matrice
Dim n      As Double    'taille de la matrice
n = Application.Count(longueurs)
ReDim matrice(1 To 2 * n, 1 To n)
ReDim fd(1 To n)
ReDim fg(1 To n)
ReDim rotd(1 To n)
ReDim rotg(1 To n)
 
    For i = 1 To 2 * n
        For j = 1 To n
fg(j) = foyer(1, j)
fd(j) = foyer(2, j)
rotg(j) = rotation(1, j)
rotd(j) = rotation(2, j)
 
If i = 2 * j - 1 Then
 
matrice(i, j) = (fg(j) * (rotg(j) / EI) + (fg(j) * fd(j) * rotd(j) / EI)) _
/ ((longueurs(j) / 6) * (1 - fg(j) * fd(j)))
ElseIf i = 2 * j Then
 
matrice(i, j) = -((fg(j) * fd(j) * (rotg(j) / EI)) + (fd(j) * rotd(j) / EI)) _
/ ((longueurs(j) / 6) * (1 - fg(j) * fd(j)))
 
ElseIf i > j Then
matrice(i, j) = -fg(j) * matrice(i = j, j = i)
Else
matrice(i, j) = -fg(j) * matrice(i = j, j = i)
 
End If
Next j
Next i
 
matricemomentappui = matrice(i, j)
End Function

Les valeurs renvoyées par la fonction sont :



les résultats devraient normalement être




merci pour vos aides

[Theze]

Bonjour,

C'est quoi ça ?

Code :

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

1
2
 
matrice(i = j, j = i)

Il peut y avoir d'autres bugs mais là, ça en est un, le compilateur ne sais pas l'interpréter (moi non plus d'ailleurs !)
Donne plus d'explications sur ce que tu veux faire.

[laminedu63]

c'est les valeurs des cases que j'ai coloriées en jaune de l'image des résultats attendus qu'il faut multiplier par fd ou fg.

le but est de monter mon tableau en premier les cases en jaunes.
ensuite à partir des ces valeurs (en jaune l'image des résultats attendus) je rempli le reste du tableau par les valeurs fd ou fg suivant le cas.
Donc quand je fais fg*matrice (i=j;j=i) j'entends moi bien sur par la par exemple si i=1) il prend la valeur du tableau matrice (2,2) et qu'il me le multiplie par fd(2) ou fg(2).

j'espère que c'est plus clair comme ca

[Philippe Tulliez]

Bonjour,
Je crois qu'il serait bon que tu passes d'abord par la lecture de ce tutoriel Utiliser les variables tableaux en VBA Excel

[laminedu63]

Bonjour
Je lai lu mais comme je suis novice dans la vba avec utilisation des tableaux je galere un peu j'avoue.

[Philippe Tulliez]

Bonjour,

Je lai lu mais comme je suis novice dans la vba avec utilisation des tableaux je galere un peu j'avoue.

Ce tutoriel peut être lu par un novice et si tu avais testé les exemples proposés tu ne ferais pas une erreur comme ci-dessous

Code :

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

matrice(i = j, j = i)

i=j renvoie une valeur booléenne (True ou False) or une variable tableau doit être indicée par une valeur numérique entière.