Bonjour,

J'ai créé un code pour calculer le pourcentage d'une taxe sur un montant et le total de cette opération.

Tout va bien, mais je viens de me rendre compte qu'à partir de 1 000 le code ne me donne pas les bon chiffre (ex : 5% de 50 000 done 2,5).

Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
'Calcul de la TPS
Private Sub tpspourc_AfterUpdate()
If Me.tpspourc <= 99 Then
    Me.tpspourc.Value = "0." & Format(Me.tpspourc.Value, "####00") & "%"
    Me.tps = Val(Me.montant) * Val(Left(Me.tpspourc, Len(Me.tpspourc) - 1))
    Me.tps.Value = Format(Me.tps, "currency")
    Else
    MsgBox ("Vous avez entré le mauvais format de % !")
    tpspourc = ""
    End If
End Sub
Quelqu'un voit le bug?

Merci