Bonjour à tous.

Je bloque et cherche depuis quelque temps et j'ai besoin de votre aide.

Mon but, dans un textbox je ne veux pas que l'utilisateur puisse inscrire de texte et que la valeur inscrite soit 4 ou moins.

Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Private Sub textBox1_Change()
    On Error Resume Next
 
If Not IsNumeric(Right(textbox1, 1)) Then
      MsgBox "Le caractere saisi n'est pas valide. Il sera remplacé par 0 !"
      textbox1 = 0
End If
 
End Sub
Puis

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 
If textbox1.Value > 4 Then
    If textbox1.Value = "" Then Exit Sub
MsgBox "La valeur doit être inférieure ou égale à 4 !", vbOKOnly, "Votre note !"
textbox1.Value = ""
 
Exit Sub
End If
End Sub
Cela fonctionne mais si j'ai un nombre décimal, le code qui limite l'inscription du texte me bloque.

Quelqu'un a une piste de solution.

Merci à l'avance


DLIGHT