Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) 'à l'appui sur une touche du clavier
If KeyAscii = 44 Then Exit Sub 'si la touche est la virgule , sort de la procédure
If KeyAscii = 46 Then KeyAscii = 44: Exit Sub 'si la touche est le point(.) , remplace par la virgule (,), sort de la procédure
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 8 'interdit toutes les valeurs différentes de {0, 1, 2, 3, 4, 5, 6, 7, 8, 9}
End Sub