saisie numérique dans un textbox

Bonjour

ceci pourrait-il t'aider ?

Private Sub TextBox1_Change()
On Error Resume Next
Select Case Asc(Right(TextBox1.Value, 1))
Case 48 To 57
Exit Sub
Case Else
MsgBox "erreur de saisie : " & Right(TextBox1.Value, 1)
lg = Len(TextBox1.Value)
TextBox1.Value = Left(TextBox1.Value, lg - 1)
End Select
End Sub

Salutations

RGI

bonjour,
je souhaiterais rendre obligatoire le format numérique dans un textbox placé
dans un formulaire.
quelqu'un pourrait-il m'aider ?
merci d'avance
Rémi

merci Gilbert, c'est exactement ce que je cherchais
Rémi

"RGI" <nospam.gilbert@discussions.microsoft.com> a écrit dans le message de
news: uZD71ilpGHA.3288@TK2MSFTNGP03.phx.gbl...

Bonjour

ceci pourrait-il t'aider ?

Private Sub TextBox1_Change()
On Error Resume Next
Select Case Asc(Right(TextBox1.Value, 1))
Case 48 To 57
Exit Sub
Case Else
MsgBox "erreur de saisie : " & Right(TextBox1.Value, 1)
lg = Len(TextBox1.Value)
TextBox1.Value = Left(TextBox1.Value, lg - 1)
End Select
End Sub

Salutations

RGI

bonjour,
je souhaiterais rendre obligatoire le format numérique dans un textbox
placé dans un formulaire.
quelqu'un pourrait-il m'aider ?
merci d'avance
Rémi