Const ES_NUMBER As Long = &H2000&
Const GWL_STYLE As Long = -16

Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Function SetTextBoxNum(ByRef Obj As Object) As Boolean
    SetWindowLong Obj.hwnd, GWL_STYLE, GetWindowLong(Obj.hwnd, GWL_STYLE) Or ES_NUMBER
End Function
' ==== Utilisation :

'Private Sub Form_Load()
'    Call SetTextBoxNum(Text1)
'End Sub

'Vérifie si la valeur saisie dans le textbox est numérique en même temps que la saisie
'Déclaration des Api
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal Locale As Long, ByVal LCTYPE As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long
Private Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" (ByVal Locale As Long, ByVal LCTYPE As Long, ByVal lpLCData As String) As Long
Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
'Déclaration de la constante séparateur décimal
Private Const LOCALE_SDECIMAL = &HE
Dim Separateur As String
 Public Sub numerique(ByVal KeyAscii As MSForms.ReturnInteger, ByVal Text As String)
 
'Si le caractère n'est pas numérique ou pas le séparateur de décimal, on annule l'appui sur la touche
If Not IsNumeric(Chr(KeyAscii)) And CStr(Chr(KeyAscii)) <> Separateur Then KeyAscii = 0
'Si le caractère est le séparateur de décimal mais celui-ci a déjà été saisi, on annule l'appui sur la touche
If Chr(KeyAscii) = Separateur And InStr(1, Text, Separateur, vbTextCompare) = 2 Then KeyAscii = 0
   End Sub
'récupère le séparateur de décimal dans les options régionales
Public Property Get DecimalSeparator() As String
Dim nLength As Long
Dim nLocale As Long
    nLocale = GetUserDefaultLCID()
    nLength = GetLocaleInfo(nLocale, LOCALE_SDECIMAL, vbNullString, 0) - 1
    DecimalSeparator = Space$(nLength)
    GetLocaleInfo nLocale, LOCALE_SDECIMAL, DecimalSeparator, nLength
    
End Property
'***Exemple d'utilisation
Public Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Separateur = DecimalSeparator()
Call numerique(KeyAscii, TextBox1.Text)
End Sub

textbox.onkeydown=function(e)
{
isNaN(Number(String.fromCharCode((e||window.event).keyCode))) ? return false : return true;
}

/**
  * Ne pas accepter que des caractères numérique dans un JTextField.
  * On redéfinit le document associé à un JTextField.
  * Un document est un conteneur de données, utilisé par Swing pour représenter
  * les données associées à des composants destinés à acceuillir du texte. 
  */
import javax.swing.text.PlainDocument;
import javax.swing.text.BadLocationException;

class NumericDocument extends PlainDocument {
    public void insertString (int offs, String str, AttributeSet att) 
                    throws BadLocationException {
        if (str.matches ("[0-9]*")) {
            super.insertString (offs, str, att);
        }
    }
}

/**
  * Tester notre nouveau type de document.
  */

import javax.swing.JTextField;
// ...
JTextField textField = new JTextField (30);
// Associer un type de document avec setDocument ()
textField.setDocument (new NumericDocument ());
// ...