Discussion :

[dlight]

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

[Marc-L]

Bonjour, bonjour,

si Excel est en version française, le séparateur décimal reconnu par IsNumeric est alors la virgule et non le point !
(Cela dépend en fait aussi des paramètres régionaux de Windows …)

Sinon consulter l'exemple du chapitre du contrôle TextBox dans le tutoriel Utiliser les contrôles dans un UserForm …

[Phil'oche]

Salut,

Pourquoi pas intercepter la frappe du caractère ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
Select Case KeyAscii
 
    Case Is < 48, Is > 57   ' si inférieur à 0 ou supérieur à 9
        KeyAscii = 48       ' on le remplace par 0
    Case Else               ' Autrement, c'est un chiffre
 
End Select
 
 
End Sub