Discussion :

[yassirjad]

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 :

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