pb de format vba

C

Catrice

XLDnaute Barbatruc

• 18 Juin 2009

• #2

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)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Juin 2009

• #3

Re : pb de format vba

Bonjour djdmd14, Catrice,

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

Code:

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

A+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Juin 2009

• #4

Re : pb de format vba

Re,

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

A+

 

Dernière édition: 18 Juin 2009

Vote positif 0 Vote négatif

D

djdmd14

Guest

• 18 Juin 2009

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Juin 2009

• #6

Re : pb de format vba

Re,

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

Code:

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

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

A+

 

Vote positif 0 Vote négatif