Discussion :

[discus23]

Bonjour,

Dans l'utilisation d'un Textbox, je cherche à contrôler la saisie de l'utilisateur.
Comme je n'accepte que des chiffres, j'utilise le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 Select Case KeyAscii
 
        'seulement des chiffres
        Case 48 To 57
 
        Case Else
 
            toto = MsgBox("Merci de ne saisir que des chiffres.")
 
 End Select

Ce qui marche très bien !
A peine l'utilisateur appuie sur une touche autre que numérique, que le message apparaît.

Cependant, j'aimerais ensuite réinitialiser le Textbox à vide, mais cela ne fonctionne pas.

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 Select Case KeyAscii
 
        'seulement des chiffres
        Case 48 To 57
 
        Case Else
 
            toto = MsgBox("Merci de ne saisir que des chiffres.")
            textbox1.value = ""
 
 End Select

Mais sans succès.....
Comment procéder ?
Merci de votre aide !

[patricktoulon]

bonjour

dans quel evenement du textbox tu a placé ce code ????

pour info regarde par la

[discus23]

Je débute avec les Userform donc je ne comprends pas très bien ta question, dans le sens où je ne sais pas ce qu'est un événement (?).

Voici le code complet de ce contrôle de saisie si cela peut t'aider d'avantage :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub txtNbCible_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
 
    Select Case KeyAscii
 
        'seulement des chiffres
        Case 48 To 57
 
        Case Else
 
            toto = MsgBox("Merci de ne saisir que des chiffres.")
 
    End Select
 
End Sub

[joe.levrai]

Bonjour,

une proposition parmi des dizaines possibles .... impossible de savoir si ça répond à ta demande puisque tu ne spécifies pas le type de nombres acceptés

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub TextBox1_Change()
    With Me.TextBox1
        If .Value = "" Then
            Exit Sub
        ElseIf Val(.Value) <> .Value Then
            MsgBox ("Merci de ne saisir que des chiffres.")
            .Value = ""
        End If
    End With
End Sub

si tu acceptes les chiffres non entiers, il y aura nécessité de tester les "." et les "," avec des Replace
Regarde l'aide au sujet de Val() pour comprendre ça

[discus23]

Je n'accepte que les nombres entiers (ASCII de 48 à 57).
Mais je vais pouvoir m'en sortir avec ton code, merci !

Par contre, pour ma culture perso, je suis toujours preneur d'une solution ou d'une explication sur le fait que cela ne marche pas dans un KeyPress.

[patricktoulon]

sinon si tu veux gérer ca par les evenements se sera comme ceci:

Code :

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

1
2
3
4
5
6
7
8
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Const val_numeric = "[,.0-9]"    'constante comportant uniquement des chiffres
If Not Chr(KeyAscii) Like val_numeric Then TextBox1 = "" 'KeyAscii = 0
End Sub
 
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If Not IsNumeric(TextBox1) Then MsgBox ("Merci de ne saisir que des chiffres."): TextBox1 = ""
End Sub

est tu allé voir le lien que je t'ai donné ??

[discus23]

Yep je suis en train toutes les solutions proposées !
Encore merci.

[kiki29]

Salut, toujours à lire : Obliger une saisie numérique dans une TextBox, à voir également : Avoir un point ou une virgule dans une textbox

[discus23]

Simple et efficace, le tout en une seule ligne.
Article à lire absolument je confirme.

Merci !