pb de format vba

[djdmd14]

bonjour
j ai un petit soucis de format:
j ai dans ma macro l appel d une inputbox ou l utilisateur doit tape un nombre a virgule

tva = Application.InputBox(prompt:="Insérez le taux de TVA", Title:="TVA", Left:=15, Top:=80, Type:=3)

plus loin pour ecrire cette tva dans un fichier texte sous format 019.60 je fais appel a cette fonction

taxe = Format(Replace(tva, ",", "."), "000.00")

pour seul resultat j obtiens taxe ="000.80"
pourquoi??
pouvez vous m aider
merci d avance

 

[Catrice]

Re : pb de format vba

Bonjour,

Quel est ton separateur decimal sur cette machine ?

Essaie ceci :
Sub test()
tva = Application.InputBox(prompt:="Insérez le taux de TVA", Title:="TVA", Left:=15, Top:=80, Type:=3)
Taxe = Replace(tva, ",", ".")
MsgBox Taxe
End Sub

Pour exploiter le resultat, tu peux faire : Val(Taxe)

 

[job75]

Re : pb de format vba

Bonjour djdmd14, Catrice,

Quelque soit le séparateur décimal de l'ordi, ceci fonctionne :

taxe = Format(Val(Replace(tva, ",", ".")), "000.00")

A+

 

[job75]

Re : pb de format vba

Re,

Edit : annulé, désolé, voir post précédent (qui utilise Val comme Catrice l'a proposé).

A+

 

[djdmd14]

Re : pb de format vba

desole mais je viens de reessayer et j obtiens 019,60 et j aimerais forcer le point comme symbole de decimale quelque soit celui de la machine
merci

 

[job75]

Re : pb de format vba

Re,

Vous pouvez essayer de modifier de nouveau, dans l'autre sens :

taxe = Format(Val(Replace(tva, ",", ".")), "000.00")
taxe = Replace(taxe, ",", ".")

I y a peut-être mieux, mais je ne vois pas.

A+