obligation de saisir un chiffre dans un textbox??

[angoul]

bonsoir,
j'aimerai dans une textbox qu'il soit obligatoire de saisir un chiffre superieur a 0
si la textbox et vide ou a un chiffre 0 ou inferieur a 0 alors qu'il me donne un message d'erreur.

sachant que ma textbox se nom txtbox1.

Qui pourrait me donner un code

merci d'avance

 

[Papou-net]

Re : obligation de saisir un chiffre dans un textbox??

Bonsoir angoul,

Tu peux mettre ce code dans txtbox1_exit par exemple :

Private Sub TxtBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsNumeric(TxtBox1.Value) Or TxtBox1.Value <= 0 Then
  MsgBox "Valeur numérique obligatoire !", vbOKOnly + vbExclamation, "ERREUR"
  TxtBox1.Value = ""
  Cancel = True
End If

End Sub

Espérant t'avoir aidé.

Cordialement.