TextBox - saisie numérique

Bonjour chère passionné d'excel

J'ai une petite question : est-ce qu'il est possible dans une TextBox de faire saisir un nombre compris uniquement entre 0 et 20 ? Si la personne saisie le nombre 21, par exemple, alors un message d'erreur apparaît.

J'ai déjà restreins la TextBox en bloquant la saisie sur 2 chiffres avec ce code mais je voudrai renforcer encore plus la saisie :

Private Sub TextBox1_Change()
If Len(TextBox) > 2 Then TextBox1 = Left(TextBox, 2)
End Sub

Merci d'avance

Bonjour,

Je pense que tu peux le faire dans la fonction :

Private Sub TextBox1_AfterUpdate
 If IsNumeric(TextBox1.Value) Then
  If TextBox1.Value <0 and TextBox1.Value > 20 then
  MSgbox "Valeur Incorrecte" 
 End if
Else
MSgbox "Valeur Incorrecte" 
End if

End Sub

Bonjour,

Je viens de tester ton code et j'ai une erreur sur la ligne Isnumeric : erreur de compilation - Attendu : Then ou GoTo

Cordialement

A oui, modif faite dans le 1er message

Toujours un petit soucis. Quand j'écris 20 je n'ai aucun message, et si j'écris 25 aucun message non plus

Du coup j'ai rajouté un petit Else pour voir mais là quand j'écris 20 ou 25 j'ai toujours le message "Valeur correcte"

Private Sub TextBox1_AfterUpdate()
 If IsNumeric(TextBox1.Value) Then
  If TextBox1.Value < 0 And TextBox1.Value > 20 Then
  MsgBox "Valeur Incorrecte"
  Else
  MsgBox "Valeur correcte"
 End If
Else
MsgBox "Valeur incorrecte"
End If

End Sub

Oui c'est un Or et pas And. Je me suis trompé.

aaa magnifique, impeccable

Je t'en remercie

Cordialement