Discussion :

[plasto590807]

Bonjour

J'ai tapé ce code mais ne marche pas comme il faudait !

Code :

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

1
2
3
4
5
6
 
Private Sub TextBox_TelephoneFixe_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If Not (KeyAscii > 37 And KeyAscii < 56) Then             'n'apparait uniquement que les chiffres de 0 à 9 et le /
    KeyAscii = 0
    End If
End Sub

Un petit coup de main me serai utile et je comprendrais mieux le dysfonctionnement


merci

[pijaku]

Bonjour,

1- Que signifie, pour vous, "ne marche pas comme il faudait"

2- les codes ASCII des chiffres de 0 à 9 sont :
0 : 48 / 1 : 49 / 2 : 50 ... 9 : 57
Pour le "/", le code ASCII est le 47.
Donc, à revoir vos conditions.

[Menhir]

J'ai tapé ce code mais ne marche pas comme il faudait !

Qu'est-ce que ce code est supposé faire ?

D'après ce que je vois, il se contente de mettre une valeur dans une variable qui est transmise en ByVal et qui n'a donc aucune chance d'être récupérée par la procédure parent.

[pijaku]

Qu'est-ce que ce code est supposé faire ?

D'après ce que je vois, il se contente de mettre une valeur dans une variable qui est transmise en ByVal et qui n'a donc aucune chance d'être récupérée par la procédure parent.

Salut Menhir,

De ce que je comprends, il s'agit d'une procédure événementielle de TextBox qui se déclenche lors de l'appui sur les touches clavier (KeyPress).
L'argument ByVal est donc tout à fait normal non?

Il faut juste modifier la condition en remplaçant :

Code :

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

If Not (KeyAscii > 37 And KeyAscii < 56) Then

par :

Code :

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

If Not (KeyAscii > 46 And KeyAscii < 58) Then

[Menhir]

L'argument ByVal est donc tout à fait normal non?

S'il laisse ByVal, ça modifiera localement (dans la procédure) la valeur de la variable mais cette variable partira en fumée dès la procédure terminée.
C'est donc pour ça que je posais la question de la finalité de la procédure parce que, si c'est bien ça, je ne vois pas trop l'intérêt (à moins que le demandeur de donne qu'une partie du code et que cette procédure ait d'autres instructions).

Si la finalité est de modifier la valeur saisie, il faudra remplacer le ByVal par ByRef, ce qui aura pour effet vraisemblablement (ça reste à tester) de modifier la valeur émise elle-même, donc la valeur saisie.

Sans plus d'informations et de tests, je n'ai pas de certitude concernant ce que j'avance, mais ça me semble tout de même fortement probable.

[pijaku]

Je comprends ton propos concernant ByVal.
Seulement, s'agissant d'un événement KeyPress, le fait de modifier KeyAscii dans cet événement, fait que le "retour du clavier" est déterminé par le "retour de cette fonction"****.
Donc KeyAscii est bien modifié...

J'ai testé.

****e sais que c'est pas clair, mais dans ma tête non plus

[Menhir]

J'ai testé.

Tu as raison.
Je viens de tester avec une mini macro :

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    KeyAscii = KeyAscii + 1
End Sub

Effectivement, bien qu'il y ait un ByVal, quand on tape "a", cette macro fait s'afficher "b".

Ca prouve une fois de plus que certaines certitudes sont moins fiables qu'on peut le croire et qu'il est toujours préférable de tester.

Pour me faire pardonner, la correction du code du demandeur (j'ai testé) :

Code :

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

1
2
3
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If KeyAscii < 47 Or KeyAscii > 57 Then KeyAscii = 0
End Sub