Effectivement, un Textbox utilisé ainsi renvoie un string, non une valeur. Autant pour moi.
1 2 3 4 5 6 7 8 9 10 11
| If IsNumeric(TextBox3.Value) Then
If Int(Val(TextBox3.Value)) < Val(TextBox3.Value) Or Val(TextBox3.Value) < 0 Then
MsgBox "J'ai dit des entiers !!!!!!!!!"
Cancel = True 'empêche de sortir du textbox
Else
Cancel = False
End If
Else
MsgBox "J'ai dit des valeurs !"
Cancel = True 'empêche de sortir du textbox
End If |
Mais tu pourrais aussi interdire le point et la virgule lors de la saisie et envoyer un beep ou un message le cas échéant. Seulement si tu n'as que quelques textbox. S'il y en a plusieurs, pour ma part je préfère toujours une validation générale.
Tu dis
A+
Partager