Discussion :

[retraite83]

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

[TOFatJOB]

Bonjour,

pas essayé : ROUNDDOWN ?

[retraite83]

Bonjour,

je vais assayer

[Franc]

Bonjour, avec round ça fonctionne:

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
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

[retraite83]

Bonjour et merci

Effectivement cela marche

Je me suis surement planté dans mes essais