Valeur qui ne mets pas à jour malgré la lecture du code
Bonjour,
Mon programme a pour but de calculer une valeur de puissance en fonction de paramètre défini précédemment.
Cependant, lors de l'exécution de mon programme le premier calcul se passe sans problème mais après avoir modifié un paramètre, toutes mes valeurs se mettent à jour sauf ma puissance.
J'ai essayé d'ajouter l'initialisation de ma variable à 0, ajouter des MsgBox pour vérifier que le code était lu, c'est bien le cas, j'ai vérifié que les autres valeurs étaient bien recalculées, ce qui est le cas.
Toutes mes variables sont de type Double et déclaré en Public dans le module.
Quelqu'un aurait-il la réponse de pourquoi ma variable Pu n'est pas recalculé alors que le code passe et que toutes les autres valeurs dont elle dépend change.
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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
Private Sub CbNdCou_Click()
Nd = CbNdCou.Value
If Nd = "M07 / D08 / M10" Then
Dia = 0.32
HtC = 1000
ElseIf Nd = "M09 / D10" Then
Dia = 0.4025
HtC = 1264
ElseIf Nd = "M12 / D14" Then
If Ex = "Oui" Then
PasC = 142
End If
Dia = 0.55
HtC = 1723
End If
End Sub
Public Sub CalcPu_Click()
P = 0
'Calcul Masse de produit dans le TC
MassP = Dp * AirR * 0.000001 * 1.2 * (EcartR - 20) * 0.001 * ((Lo + 1000) / EcartR) * 1000
'Calcul Masse des racleurs
MassR = (Round(((2 * Lo + 1000) / EcartR), 0) + 1) * (AirR * 0.000001 * 1.2 * 20 * 0.001 * 7850)
'Calcul de la tension maximale
Fs = 4.212
P = MassC + MassR
If Tp = "Grains" Then
P1 = MassP
Else
P1 = MassP * 1.2
End If
fr = 0.2
fm = 0.7
T = 9.81 * (Cos(Ic * (3.14 / 180)) * (P * fr + P1 * fm) + Sin(Ic * (3.14 / 180)) * P1 * fm) * Fs
Couple = T * (Dia / 2)
MsgBox (Couple)
VitR = Vit / (Dia / 2)
MsgBox (VitR)
Pu = Couple * VitR * 0.001
MsgBox (Pu)
PuIns = Pu * 1.2
MsgBox ("Oui")
LabPuArCou.Caption = Pu
MsgBox ("Oui")
LabPuInsCou.Caption = PuIns
MsgBox ("Oui")
End Sub |
