Discussion :

[JMTAnto]

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 :

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

[Nain porte koi]

Hello,

vu que le code est hors contexte il me semble difficile de reproduire le problème voire de le comprendre.
Je pense que si vous fournissiez un fichier anonymisé ça serait plus simple.

[Qwazerty]

Salut

Tu peux essayer de faire une Sub qui change la valeur du Label(?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LabPuArCou.Caption = "33"

Si ça ne fonctionne pas, il y a peut-être un problème au niveau du Label, il faudrait contrôler les propriétés de celui-ci et dans le pire des cas faire un essai en supprimant et en recréant le Label.

Il est aussi pas mal d'utiliser les fonctions de transtypage, comme cstr(), pour modifier le type implicitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LabPuArCou.Caption = cstr(Pu)

Quelle est la valeur de Pu?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Cstr(Pu)

C'est le code exact, par de On Error Resume Next qui traine?

++
Qwaz

[JMTAnto]

Salut

Tu peux essayer de faire une Sub qui change la valeur du Label(?)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LabPuArCou.Caption = "33"

Si ça ne fonctionne pas, il y a peut-être un problème au niveau du Label, il faudrait contrôler les propriétés de celui-ci et dans le pire des cas faire un essai en supprimant et en recréant le Label.

Il est aussi pas mal d'utiliser les fonctions de transtypage, comme cstr(), pour modifier le type implicitement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LabPuArCou.Caption = cstr(Pu)

Quelle est la valeur de Pu?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Cstr(Pu)

C'est le code exact, par de On Error Resume Next qui traine?

++
Qwaz

Salut,

Pour le coup aucun problème pour le label, seulement la valeur de Pu qui ne se recalcule pas. Mes msgbox de contrôle des valeurs se mettent à jour sauf Pu qui ne change pas alors qu'elle devrait.
Pas de On Error Resume Next qui traine. Pas de changement avec le Cstr(Pu) non plus.

[Nain porte koi]

Re,

plusieurs choses ne vont pas dans votre projet.
Commencez par le menu Débogage, et choisissez Compiler VBAProject
Vous n'irez pas bien loin, il y a plein d'erreur qu'il faut corriger une par une !
Une autre correction que vous devez IMPERATIVEMENT faire aussi, c'est mettre "Option Explicit" (vous devriez commencer par ça d'ailleurs) en début des modules et des codes des formulaires
La encore, plein d'erreur à corriger, il y a des erreurs de syntaxes dans vos variables et beaucoup ne sont pas déclarées.

Je ne suis pas allé plus loin, car je ne connais pas votre métier et il n'y a pas de "notice" explicative du comment se servir de votre programme.
Chaque essai que j'ai fait me renvoi un erreur de division par 0 et je ne sais pas comment éviter cette erreur, ou une erreur de compilation sur la ligne "LabPuCCou.Value = "Non standard, pas d'abaques disponibles"" (Membre de méthode ou de données introuvable) car vous avez mis "Value" au lieu de "Caption".

Bref, pas mal de choses à revoir avant de comprendre le comment du pourquoi, mais je pense que si vous corrigez toutes les erreurs de compilation et de syntaxe des variables, ça devrait fonctionner.

[JMTAnto]

Re,

plusieurs choses ne vont pas dans votre projet.
Commencez par le menu Débogage, et choisissez Compiler VBAProject
Vous n'irez pas bien loin, il y a plein d'erreur qu'il faut corriger une par une !
Une autre correction que vous devez IMPERATIVEMENT faire aussi, c'est mettre "Option Explicit" (vous devriez commencer par ça d'ailleurs) en début des modules et des codes des formulaires
La encore, plein d'erreur à corriger, il y a des erreurs de syntaxes dans vos variables et beaucoup ne sont pas déclarées.

Je ne suis pas allé plus loin, car je ne connais pas votre métier et il n'y a pas de "notice" explicative du comment se servir de votre programme.
Chaque essai que j'ai fait me renvoi un erreur de division par 0 et je ne sais pas comment éviter cette erreur, ou une erreur de compilation sur la ligne "LabPuCCou.Value = "Non standard, pas d'abaques disponibles"" (Membre de méthode ou de données introuvable) car vous avez mis "Value" au lieu de "Caption".

Bref, pas mal de choses à revoir avant de comprendre le comment du pourquoi, mais je pense que si vous corrigez toutes les erreurs de compilation et de syntaxe des variables, ça devrait fonctionner.

Merci pour ta réponse, je m'en vais de ce pas régler les problèmes. (le caption a été corrigé ce matin après l'envoi du fichier...)

[JMTAnto]

Re,

plusieurs choses ne vont pas dans votre projet.
Commencez par le menu Débogage, et choisissez Compiler VBAProject
Vous n'irez pas bien loin, il y a plein d'erreur qu'il faut corriger une par une !
Une autre correction que vous devez IMPERATIVEMENT faire aussi, c'est mettre "Option Explicit" (vous devriez commencer par ça d'ailleurs) en début des modules et des codes des formulaires
La encore, plein d'erreur à corriger, il y a des erreurs de syntaxes dans vos variables et beaucoup ne sont pas déclarées.

Je ne suis pas allé plus loin, car je ne connais pas votre métier et il n'y a pas de "notice" explicative du comment se servir de votre programme.
Chaque essai que j'ai fait me renvoi un erreur de division par 0 et je ne sais pas comment éviter cette erreur, ou une erreur de compilation sur la ligne "LabPuCCou.Value = "Non standard, pas d'abaques disponibles"" (Membre de méthode ou de données introuvable) car vous avez mis "Value" au lieu de "Caption".

Bref, pas mal de choses à revoir avant de comprendre le comment du pourquoi, mais je pense que si vous corrigez toutes les erreurs de compilation et de syntaxe des variables, ça devrait fonctionner.

Voici le fichier corriger avec un exemple qui vous permettra de faire des tests.
La valeur de Pu ne change toujours pas malgré que j'ai corrigé les erreurs qui apparaissaient lors de la compilation du projet.
Pièce jointe 662898

Pour les tests, il suffit de rentrer les valeurs suivantes et de bien cliquer sur les boutons "Calcul Débit" dans le premier userform avant de valider, puis choisir le nombre de temps et appuyer sur "Calcul Puissance" dans le deuxième userform, et enfin sélectionner une puissance puis la valider. Le dernier userform export pdf n'est pas utile pour vous.



Merci encore pour le temps accordé.

[JMTAnto]

Outil_Dim_Ano_forum.xlsm

Désolé pour le délai, voila le fichier sans données privées.
Il y a eu quelques modifications depuis mais le problème reste le même.

Merci pour le temps accordé par avance.