Bonjour,

Je cherche de l'aide sur une macro dont voici ci-après le code.
a partir des données d'entrées, je veux faire une boucle qui me permet de calculer les sommes des certaines valeurs mais j'ai un bug. C'est pour un programme que je dois faire pour l'ecole de gébie civil.
merci pour votre aide.

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
Function pontuellegenerale(l1, p() As Range, x() As Range, cote)
ub = UBound(p)          'nbre de valeur dans le tableau p()
npoint = UBound(xpos)   'nbre de valeur dans le tableau x()
For i = 1 To ub
p = p(i)
For j = 1 To npoint
xpos = x(j)
 
rotationgauche = p * xpos * (l1 ^ 2 - xpos ^ 2) / (6 * l1)      'calcul des rotations à gauche des différents p avec xpos associée
rotationgauche = rotationgauche + rotationgauche                'somme de l'ensemble des rotations à gauche
rotationdroite = -p * xpos * (l1 - xpos) * (2 * l1 - xpos) / (6 * l1)   'somme de l'ensemble des rotations à droite
rotationdroite = rotationdroite + rotationdroite                        'calcul des rotations à droite des différents p avec xpos associée
Next i
Next j
 
 
If cote = "g" Then
rotationpontuelle = rotationgauche
ElseIf cote = "d" Then
rotationpontuelle = rotationdroite
End If
pontuellegenerale = rotationpontuelle
End Function