Bug égalité ?

Version imprimable

1 pièce(s) jointe(s)

Bug égalité ?

Bonjour

Sur la procédure ci-après VBA-Excel ne résout pas correctement l'égalité VideTotTest <> VideTot.

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
 
Public Sub Calcul()
Dim LongTot, LargPtx, VideReel, LondDePtx As Double
Dim NbPtr, NbPtx As Integer
 
Dim VideTot, VideTot1, VideTot2, VideTotTest As Double
 
Dim NbPtr1, NbPtr2 As Integer
Dim LgPtr1, LgPtr2 As Double
 
    If IsNumeric(TXB_NbPtr.Value) And IsNumeric(TXB_LargPtx.Value) And IsNumeric(TXB_LongTot.Value) Then
        LongTot = TXB_LongTot.Value
        LargPtx = TXB_LargPtx.Value
        NbPtr = TXB_NbPtr.Value
 
        NbPtx = TXB_NbPtr - 1
        LongDePtx = LargPtx * NbPtx
        VideReel = (LongTot - NbPtx * LargPtx) / NbPtr
 
 
    'Mise à jour des infos de calcul (en bas)
        'si nombres < 0 alors nombre = 0
        If LongDePtx < 0 Then
            LBL_LongDePtx.Caption = 0
        Else
            LBL_LongDePtx.Caption = LongDePtx
        End If
 
        If NbPtx < 0 Then
            LBL_NbPtx.Caption = 0
        Else
            LBL_NbPtx.Caption = NbPtx
        End If
 
        If VideReel < 0 Then
            LBL_VideReel.Caption = 0
        Else
            LBL_VideReel = VideReel
        End If
 
    Else
        LBL_VideReel.Caption = 0
        LBL_NbPtx.Caption = 0
        LBL_LongDePtx = 0
    End If
 
    If IsNumeric(TXB_NbPtr.Value) And IsNumeric(TXB_LargPtx.Value) And IsNumeric(TXB_LongTot.Value) Then
        LBL_NbPtr1 = True
 
        VideTot = LongTot - LongDePtx
 
        If Len(VideReel) <= 5 Then
            If Mid(VideReel, 5) = 5 Or Len(VideReel) < 5 Then
                LgPtr1 = VideReel
                NbPtr1 = NbPtr
 
                LBL_Nb1 = NbPtr1 & " poutres de " & VideReel & " ml."
                LBL_Nb1.Visible = True
                LBL_Nb2.Visible = False
 
                Exit Sub
            End If
 
        Else
            NbPtr1 = 1
            LgPtr1 = Round(VideReel - 0.005, 2)
 
            NbPtr2 = NbPtr - NbPtr1
            LgPtr2 = Round(VideReel + 0.005, 2)
 
            VideTot1 = NbPtr1 * LgPtr1
            VideTot2 = NbPtr2 * LgPtr2
            VideTotTest = VideTot1 + VideTot2
 
            While VideTotTest <> VideTot 'C'est ici que ça ne marche pas comme prévu
                MsgBox "hop"
                If NbPtr1 > 1000 Then
                    MsgBox "erreur"
                    LBL_Nb1.Visible = False
                    LBL_Nb2.Visible = False
                    Exit Sub
                End If
 
                NbPtr1 = NbPtr1 + 1
                NbPtr2 = NbPtr - NbPtr1
 
                VideTot1 = NbPtr1 * LgPtr1
                VideTot2 = NbPtr2 * LgPtr2
            Wend   
        End If
    Else
        LBL_Nb1.Visible = False
        LBL_Nb2.Visible = False
    End If
End Sub

Pièce jointe 415196

Je ne sais pas pourquoi mais si j'ai par exemple VideTot1 = 5.23 ,VideTot2 = 10.48, VideTotTest = 15.71 et VideTot = 15.71. Et bien l'égalité VideTotTest = VideTot renvoit faux, et VideTotTest <> VideTot renvoit vrai 8O. Peux-etre n'ai je pas fait correctement quelque chose dans mon code.

Pourriez-vous m'aider svp ? Je galère :?

Merci à vous :)

26/09/2018, 20h31
Jean-Philippe André

Bonjour,

ta ligne de déclaration de variables peut poser problème

change pour commencer ton

Code:

Dim VideTot, VideTot1, VideTot2, VideTotTest As Double

en

Code:

Dim VideTot As Double, VideTot1 As Double, VideTot2 As Double, VideTotTest As Double

même chose pour les autres lignes de déclaration...
27/09/2018, 08h55
Maxime63

Déclaration des variables

Ok j'ai modifié mes déclarations de variables selon tes conseils. Mais cela ne corrige pas le problème.

As-tu/Avez-vous une autre idée ?

Merci pour vos réponse. :)
27/09/2018, 09h23
RyuAutodidacte

Bonjour

Citation:

Envoyé par Maxime63

Sur la procédure ci-après VBA-Excel ne résout pas correctement l'égalité VideTotTest <> VideTot.

Je ne sais pas pourquoi mais si j'ai par exemple VideTot1 = 5.23 ,VideTot2 = 10.48, VideTotTest = 15.71 et VideTot = 15.71. Et bien l'égalité VideTotTest = VideTot renvoit faux, et VideTotTest <> VideTot renvoit vrai 8O. Peux-etre n'ai je pas fait correctement quelque chose dans mon code.

Fait ton code en pas à pas en testant tes variables :

Code:

Debug.Print "VideTot = " & VideTot & " - " & "VideTotTest = " & VideTotTest

Tu verras sûrement ce qu'il en est …
27/09/2018, 13h04
RyuAutodidacte

Peut être ceci à vérifier lors de l'exécution du code :
Exemple à faire dans la fenêtre d'exécution :

Code:

VideTotTest = "15.71": VideTot = 15.71: Debug.Print VideTot = VideTotTest

vois tu la différences …
27/09/2018, 14h40
Maxime63

Résolu

Bonjour,

J'ai trouvé la solution sur un autre post. J'aurai pu chercher un peu mieux mais je n'ai compris que aujourd'hui d'où mon problème venait.
https://www.developpez.net/forums/d9...rsion-nombres/
Comme l'explique très bien le post c'est un problème de conversion entre le système binaire et décimal qui rajoute des petite miettes à la fin des variables Double.

En déclarant mes variables en Single je n'ai plus de problème.

Merci pour vos réponse et de m'avoir fait découvrir l’exécution pas à pas que je ne connaissez pas jusque là (Super pratique !)

Ce post est résolu. alors bonne journée :).