nombre à virgule dans textbox

Dranreb

XLDnaute Barbatruc

• 18 Août 2017

• #2

Bonjour.
Écrivez peut être une TB_KeyPress pour changer la frappe des Asc(".") en Asc(",")

 

Vote positif 0 Vote négatif

dg62

XLDnaute Barbatruc

• 18 Août 2017

• #3

Bonjour le forum

Private Sub TB_Change()
Dim TB As String
Dim message As Integer
TB = "4.5"
message = CDbl(TB) + 1
MsgBox (message)
End Sub

Comment est affecté le 4.5 ?

@+

 

Vote positif 0 Vote négatif

F

francoisC

XLDnaute Junior

• 18 Août 2017

• #4

Dranreb à dit:

Bonjour.
Écrivez peut être une TB_KeyPress pour changer la frappe des Asc(".") en Asc(",")

Cliquez pour agrandir...

j'ai trouvé la solution = il avait suffit de mettre val(tb) à condition que la virgule soit un point.
merci pour ta réponse Dranreb

 

Vote positif 0 Vote négatif

F

francoisC

XLDnaute Junior

• 18 Août 2017

• #5

merci au ssi à toi dg62

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 18 Août 2017

• #6

S'il est normal que le séparateur décimal doive rester un point et non une virgule, utilisez Val(TB.Text)
Si vous tenez à ce que ça reste comme ça a été tapé vous pouvez prendre au choix CDbl(Replace(TB.Text, ".", ",")) ou Val(Replace(TB.Text, ",", "."))

 

Dernière édition: 18 Août 2017

Vote positif 0 Vote négatif