VBA Excel et méthode des élément finis

[AALIKOUCH Yassir]

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.

 

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.  

 

Enonce Projet TER calcul L3 2020.pdf

[BELLAMINE]