Public Class NumericTextBox Inherits System.Windows.Forms.TextBox Protected Overrides Sub OnKeyPress(ByVal e As System.Windows.Forms.KeyPressEventArgs) MyBase.OnKeyPress(e) 'Si le caractère saisi est autre chose que des chiffres ou le séparateur décimal If Not (Char.IsDigit(e.KeyChar) OrElse e.KeyChar = "," OrElse e.KeyChar=Chr(8) OrElse e.KeyChar=".") Then e.Handled = True 'Ignore la saisie '-- le code qui suit est pour être sur que l'on ne saisisse pas 2 fois le séparateur décimal ElseIf e.KeyChar="." OrElse e.KeyChar = "," Then If Me.Text.IndexOf(",",0) = -1 Then e.Keychar=CChar(",") Else e.Handled = True End If End If End Sub End Class