1 pièce(s) jointe(s)
Méthode des élément finis
Bonjour,
Je suis étudiant en génie mécanique aéronautique et j'ai pour projet de résoudre le problèmes de treillis sous VBA Excel.
Sur la question 1.2 j'ai fait le programme qui est le suivant mais je ne suis pas sur qu'il va fonctionner pour une structure de 100 nœud.
Code:
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
| Sub calcul()
Dim i As Integer
Dim compteur As Integer
compteur = 0
For i = 3 To 65
If Cells(i, 3).Value = 1 Then
compteur = compteur + 1
End If
Cells(2, 2).Value = compteur + 2
Next i
For i = 3 To 65
If Cells(i, 14).Value = 1 Then
compteur = compteur + 1
End If
Cells(2, 14).Value = compteur + 3
Next i
For i = 3 To 65
If Cells(i, 24).Value = 1 Then
compteur = 2
End If
Cells(2, 24).Value = compteur
Next i
End Sub |
Donc j'aimerais avoir si y a des spécialiste de VBA pour me confirmer si le programme est juste et pour m'aider à le faire fonctionner pour une structure de 100 nœud.
Vous trouvez le sujet en PJ.
Cordialement.