Voila, encore un ptit problème.

Mon programme est une caisse de magasin. J'ai un champ qui m'indique le total de la commande, puis un champ ou j'introduis le montant recut, puis j'appuie sur un bouton pour faire le calcul. En général tout se passe bien, avec n'importe quel calcul, sauf 1 seule combinaison. Quand j'ai 2,6 en total, et que j'introduis 2,6 comme montant recut, il ne m'indique pas 0 comme il devrait, mais 4,44089209850063E-16
Qu'est ce que c'est que ce truc bizare ?
Quelqu'un à une idée ?
voici mon code

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
    Dim str2 As String
    Dim fin2 As String
 
    'test si le champ est vide
    If txtRecu.Text = "" Then
        MsgBox "Vous n'avez pas rempli le champ Recu"
    Else
        'calcul du prix a rendre
        If txtRecu.Text < total Then
            MsgBox "Le montant recut est inférieur au total"
        Else
            str2 = CStr(txtRecu.Text)
            fin2 = Replace(str2, ".", ",")
            recu = fin2
            rendre = recu - total
            txtRendre = rendre & " €"
            cmdRetablir.Enabled = True
        End If
    End If