utiliser des chiffres a virgules avec une inputbox

Version imprimable

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:

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

Un test (tu utilise la virgule comme séparateur décimal)

Code:

1
2
3
4
5
6
7
8
Sub Toto()
Dim Eco As Double
Dim Rep As String
 
Rep = InputBox("Valeur")
If Rep <> "" Then Eco = Replace(Rep, ",", ".")
MsgBox Eco
End Sub

15/06/2011, 15h00
bosk1000
ton code bug, et j'ai modifié juste ceci
Code:

1 2 If Rep <> "" Then Eco = Replace(Rep, ".", ",")
le resultat dans la msgbox est bon
"10,52" mais l'utilisation dans la formule
Code:

1 2 If Range("h" & i) <> "" Then Range("i" & i).Formula = "=(RC[-1]+" & CDbl(Val(eco)) + Val(g) & ")*1.196"
c'est a que ça ne conviens pas

Ca ne bug pas mais tu as mal testé ou à la hâte

Ton code

Code:

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
27
28
29
30
31
32
33
34
35
36
37
Sub si_gantie_ok()
Dim NumDL As Long, i As Long
Dim G As Integer
Dim Rep As Variant
Dim Eco As Double
 
Application.ScreenUpdating = False
' inputbox pour demander l'ecotaxe
Rep = Application.InputBox("quelle est l'eco taxe")
If Rep <> False Then
    Eco = Val(Replace(Rep, ",", "."))
    G = 18
    With Sheets("Feuil11")                                           'à adapter
        ' boucle pour la formule du prix ttc
        NumDL = .Cells(.Rows.Count, "A").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]+" & Eco + G & ")*1.196"
                .Range("J" & i).Formula = "=((RC[-2]*1.04)+" & Eco & ")*1.196"
                With .Range("I" & i & ":J" & i)
                    .NumberFormat = "#,##0.00"
                    .Interior.ColorIndex = 4
                End With
            Else
                With .Range("I" & i & ":J" & i)
                    .Interior.ColorIndex = xlNone
                    .ClearContents
                End With
            End If
        Next i
        'modifie "valeur!" en prix
        On Error Resume Next
        .UsedRange.SpecialCells(xlCellTypeFormulas, xlErrors) = "Prix"
        On Error GoTo 0
    End With
End If
End Sub

15/06/2011, 16h30
bosk1000

c'est étrange
si je veux récupérer le résultat de l'inputbox dans une cellule j'obtiens bien un chiffre a virgule "10,52"

mais dans la formule de calcul, (en faisant le test pas a pas) j'obtiens 10

donc la solution non propres, serait d'utiliser une cellule "tampon" ou j'irai placé le chiffre de l'inputbox (10,52) pour faire le calcul,

mais je ne peux traiter directement cette information dans ma formule de calcul, sans qu'elle soit ramener à son entier 10 au lieu de 10,52
15/06/2011, 17h40
mercatog

Ce que tu raconte ici est étrange.
Mets TON code, tu as loupé quelque chose.
16/06/2011, 00h35
Didier Gonard
Bonjour,

ma logique est perturbée :koi:
Code:

1 2 3 4 Dim eco As Double eco = Application.InputBox("quelle est l'eco taxe", Type:=1) blabla.. "=(RC[-1]+" & CDbl(Val(eco)) + Val(g) & ")*1.196"
Pour moi, tu es victime de "l'effet mayonnaise"
- tu déclares ta variable en double
- tu emploies un argument type 1 qui force un nombre
- tu utilises la fonction val au niveau de ce nombre :koi: (que tu tortures avec CDBL par dessus..)
D'où la perturbation logique, ensuite si tu regardes l'aide VBA à VAL, fonction, tu verras :

Citation:

La fonction Val arrête la lecture de la chaîne au premier caractère ne faisant apparemment pas partie d'un nombre. Les symboles et caractères fréquemment associés aux valeurs numériques, comme le signe $ et les virgules ne sont pas reconnus.

Tu obtiens bien ce que tu as demandé finalement ;)

cordialement,

Didier
16/06/2011, 08h56
bosk1000

merci pour votre aide
c'est grâce à ces erreurs et a vos explications que j'évolue :)