Bonjour à tous,
Dans un userform, j'ai une textbox nommée TBNombre pour laquelle je force la saisie numérique.
J'utilise à cette fin, le code suivant :
Private Sub TBNombre_Change()
If InStr("0123456789", Right(Me.TBNombre, 1)) = 0 Then
Me.TBNombre = Left(Me.TBNombre...