Mettre une TextBox en format numerique

[Eric]

Bonjour a tous,

Voici ma question :
Est il possible de limiter une TextBox en format numerique ?
Si oui comment ?

Merci pour vos reponses

 

[excalibur]

bonjour eric si j ai bien compris tu utiliser les evenements Private Sub TextBox1_KeyUP(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 46
TextBox1 = ''
End Select
End Sub'touche supprim
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Select Case KeyCode
Case Is = 8
Case Is = 13, 96 To 105
Case Else
KeyCode = 0
End Select
End Sub'salutations