Calcul de % avec VBA

Version imprimable

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:

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

01/10/2019, 08h35
Menhir

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

Citation:

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

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

Code:

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

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:

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.