Saisie d'un nombre entier dans un textbox

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'à la sortie de la TextBox
Dim vt As Integer 'déclare la variable vt comme entier

'autorise la sortie de la TextBox si elle n'est pas renseignée
'cela permet la fermeture de l'UserForm si on l'ouvre par erreur
If TextBox1.Value = '' Then Exit Sub

'si bug provoqué par incompatibilité de type (pas un nombre entier)
' va à la balise 'suite
On Error GoTo suite

vt = TextBox1.Value 'définit la variable vt (si ce n'est pas un entier cela provoque une erreur)
Exit Sub 'sort de la procédure

suite: 'balise
MsgBox 'Vous devez taper un nombre entier.' 'message
Cancel = True 'annule la sortie de la textBox (le focus reste)
TextBox1.Value = '' 'vide le contenue de la TextBox
End Sub

Cliquez pour agrandir...