nombre à virgule dans textbox

[francoisC]

Bonjour à tous et merci pour votre attention,
Dans un textbox j'ai un nombre à virgule (4.5). Pour le faire reconnaître en nombre j'ai utilisé Cdbl(TB) mais rein n'y fait.

code

Private Sub TB_Change()
MsgBox CDbl(TB) + 1
End Sub

Avez vous une solution ?

Et merci encore pour votre attention.

 

[Dranreb]

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

 

[dg62]

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 ?

@+

 

[francoisC]

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

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

 

[francoisC]

merci au ssi à toi dg62

 

[Dranreb]

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, ",", "."))