alias_2003
XLDnaute Occasionnel
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 :
J'aimerais savoir s'il est possible d'empêcher une saisie à 0, la TBNombre doit toujours contenir au moins 1 pièce.
Merci à vous,
Amicalement
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 :
Code:
Private Sub TBNombre_Change()
If InStr("0123456789", Right(Me.TBNombre, 1)) = 0 Then
Me.TBNombre = Left(Me.TBNombre, Len(Me.TBNombre) - 1)
End If
End Sub
J'aimerais savoir s'il est possible d'empêcher une saisie à 0, la TBNombre doit toujours contenir au moins 1 pièce.
Merci à vous,
Amicalement