bonjour a tous

j'utilise une inputbox pour taper un montant à chiffres après la virgules
mais lorsque j'utilise la variable obtenue avec l'inputbox pour l'utiliser dans un calcul, les chiffre après la virgule ne sont pas utiliser
exemple si je tape "10,52", c'est 10 qui sera utiliser
voici le code
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
19
20
21
22
23
24
25
26
 
Sub si_gantie_ok()
Dim numdl, i, g As Integer
Dim eco As Double
 
' inputbox pour demander l'ecotaxe
eco = Application.InputBox("quelle est l'eco taxe", Type:=1)
g = 18
 
 
' boucle pour la formule du prix ttc
numdl = Range("a65536").End(xlUp).Row 'recuper le numero de la dernière ligne du tableau
For i = 2 To numdl
If Range("h" & i) <> "" Then Range("i" & i).Formula = "=(RC[-1]+" & CDbl(Val(eco)) + Val(g) & ")*1.196"
    Range("i" & i).NumberFormat = "#,##0.00"
    Range("i" & i).Interior.ColorIndex = 4
 
If Range("h" & i) <> "" Then Range("j" & i).Formula = "=((RC[-2]*1.04)+" & CDbl(Val(eco)) & ")*1.196"
    Range("j" & i).NumberFormat = "#,##0.00"
    Range("j" & i).Interior.ColorIndex = 4
Next i
 
'modifie "valeur!" en prix
ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors) = "Prix"
 
End Sub