Discussion :

[denissmile]

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

[Menhir]

Essaye de remplacer tes Val() par des CDbl().

Me.tpspourc.Value = "0." & Format(Me.tpspourc.Value, "####00") & "%"

Cette ligne me semble très suspecte.
Perso, j'aurais plutôt écrit :

Code :

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

Me.tpspourc.Value = Format(CDbl(Me.tpspourc.Value)/100, "#0.0000%")

[Pierre Fauconnier]

Salut.

Les Me. ne servent qu'à alourdir le code. Perso, je les supprimerais.

Pour le calcul, je procéderais en calculant d'abord le montant ttc, puis en transformant l'affichage du taux de taxe. Note cependant que ton affichage est assez spécial puisque 20% devient 0.20% (soit c'est 20%, soit c'est 0.20)...

Code vba :

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

1
2
3
4
5
6
7
8
9
10
Private Sub tpspourc_AfterUpdate()
If tpspourc.Value <= 99 Then
    tps.Value = tps * (1 + (tpspourc / 100))
    tpspourc.Value = tpspourc.Value / 100 & "%"
    tps.Value = Format(tps, "currency")
    Else
    MsgBox ("Vous avez entré le mauvais format de % !")
    tpspourc = ""
    End If
End Sub

Perso, dans ce genre de situation, je n'hésite pas à passer par des variables pour réaliser les calculs. Ca n'alourdit pas, ça clarifie, ça permet de tester en mode pas à pas...
Sur le plan ergonomique, j'émets de gros doutes sur la solution proposée: faire saisir des données puis les modifier dans les mêmes contrôles, c'est surprenant pour l'utilisateur, à mon avis, surtout sur un AfterUpdate... Je ne vois par exemple pas d'intérêt à modifier l'affichage du taux de la taxe. Il suffit de l'aligner à droite et de mettre un % en label juste contre. Ca évite l'ambiguïté de l'affichage tel que tu le proposes.

Je rappelle également qui, pour suivre une bonne architecture, on ne devrait pas implémenter de l'applicatif dans une procédure événementielle, et que le calcul devrait être déporté vers une fonction qui ne fait que cela, idéalement hors du userform. Le fait de coder tout dans l'événement ne peut, à terme, que créer du code en doublon. Normalement, on sait, avant de créer le userform, que l'on va devoir effectuer le calcul et on crée directement la fonction paramétrée qui réalise cela, fonction que l'on appelle du userform.