petit problème avec keyascii

Bonjour

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

Code:

---

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

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.

Citation:

---

Envoyé par plasto590807

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.

Citation:

---

Envoyé par Menhir

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:

---

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

---

par :

Code:

---

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

---

Citation:

---

Envoyé par pijaku

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.

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 :P

Citation:

---

Envoyé par pijaku

J'ai testé.

---

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

Code:

---

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:

---

1 2 3

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

---

Bien vu, tu es tout pardonné!
:plusser:

Par contre, pour le coup, il serait intéressant de savoir si ce "phénomène" de modification d'argument, alors qu'il est passé ByVal, est dû à l'événement (KeyPress) ou au type particulier de variable (ReturnInteger) ou aux deux.


[MODE Juste entre nous]
Je n'ai même pas pensé à inverser les signes supérieurs et inférieurs pour me passer du Not...
Pfff..
[/MODE Juste entre nous]

Citation:

---

Envoyé par pijaku

Je n'ai même pas pensé à inverser les signes supérieurs et inférieurs pour me passer du Not...

---

Il faut aussi penser à changer le And en Or (et inversement).
L'équivalent de NON(A ET B) c'est NON(A) OU NON(B).

Citation:

---

Envoyé par Menhir

L'équivalent de NON(A ET B) c'est NON(A) OU NON(B).

---

Bien sur.
Mais c'est toujours bien de le re-préciser!