Tronquer un nombre décimal

Version imprimable

09/04/2024, 12h32
retraite83

Tronquer un nombre décimal

Bonjour

j'ai un petit soucis de calcul, j'ai des montants TTC que je divise par la TVA pour obtenir les montants HT. Le problème est que le total des montants HT n'est pas égal au montant TTC

Je m'explique:

montant 1 TTC = 100 , montant 1 HT = 100/1,2 = 83,333333... j'affiche 83,33
montant 2 TTC = 100 , montant 2 HT = 100/1,2 = 83,333333... j'affiche 83,33

Total HT = Montant 1 +Montant 2 = 166,67 (83,333333+83,333333)

je voudrai 166,66

J'ai essayé ROUND, VAL, TRUNC... sans résultat en VBA
09/04/2024, 14h29
TOFatJOB

Bonjour,

pas essayé : ROUNDDOWN ?
09/04/2024, 16h26
retraite83

Bonjour,

je vais assayer

Bonjour, avec round ça fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
Dim montant1_TTC As Double
Dim montant2_TTC As Double
Dim montant1_HT As Double
Dim montant2_HT As Double
Dim total_HT As Double
 
montant1_TTC = 100
montant2_TTC = 100
 
montant1_HT = Application.WorksheetFunction.Round(montant1_TTC / 1.2, 2)
montant2_HT = Application.WorksheetFunction.Round(montant2_TTC / 1.2, 2)
 
total_HT = montant1_HT + montant2_HT
 
 
MsgBox "montant1_HT " & montant1_HT & vbCrLf & "montant2_HT " & montant2_HT & vbCrLf & "total_HT " & total_HT
End Sub

10/04/2024, 09h02
retraite83

Bonjour et merci

Effectivement cela marche

Je me suis surement planté dans mes essais :(