'remplace le point par une virgule
Private Sub TextBox4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub
'du numeric
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Is < 48, Is > 57
KeyAscii = 0
End Select
End Sub
'les 2
Private Sub textbox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc(",")
'ne fait rien
Case Asc(".")
KeyAscii = Asc(",") 'Remplace . par virgule
Case Else
If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0
End Select
End Sub