Private Sub TextBox1_Change()
If TextBox1.Value < 400 Or TextBox1.Value > 2000 Then
MsgBox (" Valeur Refusée")
Exit Sub
End If
End Sub
Private Sub TextBox1_AfterUpdate()
If Val(TextBox1) < 400 Or Val(TextBox1) > 2000 Then
MsgBox "Les valeurs doivent être comprises entre 400 et 2000", , "Valeurs"
TextBox1 = ""
Else
TextBox1 = Val(TextBox1)
End If
End Sub
If Val(Me.TextBox1) < 400 Or Val(Me.TextBox1) > 2000 Then
MsgBox "Les valeurs doivent être comprises entre 400 et 2000", , "Valeurs"
Me.TextBox1 = ""
Else
Me.TextBox1 = Val(Me.TextBox1)
End If