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
Partager