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

Il y a 15 heures, AALIKOUCH Yassir a dit :

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 269.56 Ko · 0 downloads

Bonjour

Avant chaque boucle for i=3 to 65 il faut initier votre compteur à zéro !!! ou alors définir trois compteurs différents pour chaque boucle.

Pour de plus amples détails sur des questions de programmation Excel VBA je te conseille de consulter le site suivant :

www.developpez.com

Cdt