Bonjour
Une piste de solution
(à adapter)
Private Sub TextBox1_Change()
OnlyNumbers
End Sub
Private Sub OnlyNumbers()
With Me.ActiveControl
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox 'Sorry, only numbers allowed'
.Value = vbNullString
End If
End With
End Sub