Souci point pavé numérique

**HDU71000** · 01/05/2017, 22h35

Bonjour,

voici mon souci du jour...

Je cherche dans un form, quand l'utilisateur saisisse un point sur le clavier décimal du clavier que celui-ci soit un point et non pas une virgule...

Le souci, est que je ne souhaite pas modifier les paramètres internationaux des postes.

J'ai testé pour voir le code ascii retourné, mais c'est le même (46) alors que la zone de texte reçoit une virgule si j'appuie sur le point du clavier décimal ! D'où je pense la difficulté !

Le tout, c'est pour éviter des "," dans la zone de texte, qui est un mail. Donc un masque email conviendrait également.

Merci

**marot_r** · 02/05/2017, 13h45

Bonjour.

il faut intercepter la touche et non le caractère.

Je pense que c'est l'événement "Sur Touche appuyé" qui permet cela.
Tu devrais récupérer le numéro de la touche et gérer en conséquence.
Si tu ne veux pas le faire champ par champ il faut mettre la propriété du formulaire "Aperçu des touches" à Oui.
Les touches seront "vues" au niveau du formulaire avant d'être envoyées au champ de saisie.
Tu peux faire la substitution là.
Et tu peux peut-être écrire une procédure ou une fonction qui prend un formulaire en paramètre ce qui permet de réutiliser le même code pour tout tes formulaires.

Un truc du genre :

Code :

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

call MonCode(me) 'Appelle MonCode en passant le formulaire courant en paramètre.

A+

**HDU71000** · 02/05/2017, 18h54

Bonjour et merci,

j'ai mis la propriété aperçu des touches à oui, rien ne se passe...

Sinon, comment récupérer la touche et non le caractère sur l'événement "keypress" ?

Merci

**marot_r** · 02/05/2017, 20h38

Bonjour.

Code :

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

1
2
3
Private Sub Form_KeyPress(KeyAscii As Integer)
    MsgBox KeyAscii
End Sub

KeyAscii te donne le bon carcatère.
Sur mon clavier le point du pavé numérique est 46 et le point du clavier texte est ausssi 46. Lt la virgule du clavier "texte" est 44.
Hélas, désolé, même si il reçoit bien 46 quand on tape avec le pavé numérique, il met quand même une virgule dans le texte :-(.
Donc ça ne marche pas.

Ici avec KeyDown ça marche, les codes correspondent à mon clavier il est possible qu'ils soient différents chez toi. Tu peux utiliser le MsgBox pour les valider.

Code :

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

1
2
3
4
5
6
7
8
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    'MsgBox "KeyDown : " & KeyCode & "," & Shift
 
    If KeyCode = 110 Then
        KeyCode = 190 'Touche "." du clavier texte.
    End If
 
End Sub

Ça c'est le code pour le form si tu veux traiter tous les champs.
Si tu n'as besoin que pour un seul, il est plus prudent de mettre le code pour ce champ.

A+

**HDU71000** · 02/05/2017, 20h55

Merci,

j'avais testé avec les msgbox et j'avais vu que le code retourné était le même

Avec le keydown, les codes ne sont effectivement pas les mêmes, mais un souci persiste :

Si je suis en majuscules, le code 190 me retourne un ";" et bien en "." si je suis en minuscules

J'ai regardé un peu partout, mais je ne trouve pas de touche "." qui ne soit pas affectée également au ";".

Une idée ?

Merci

**marot_r** · 02/05/2017, 21h08

Il faut tester la valeur du 2ième paramètre Shift (majuscule).

Je crois que c'est 1 si il est enfoncé et 0 si non donc probablement le code est :

Code :

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

1
2
3
If KeyCode = 110 and shift =0 Then
        KeyCode = 190 'Touche "." du clavier texte.
End If

A+

**HDU71000** · 02/05/2017, 21h32

Merci, mais le paramètre Shift ne prend pas en compte la touche CAPS LOCK vérouillée ou pas, il me retourne 0...

**marot_r** · 03/05/2017, 14h16

Désolé je pensais que le shift marcherai :-(.

Ici du code pour tester le caps lock (entre autre)

Caps Lock Num Lock Scroll lock status
https://bytes.com/topic/access/answe...ll-lock-status

Je pense que le mieux est de mettre ce code dans son module à part du reste.

A+

**HDU71000** · 03/05/2017, 23h13

Pas de quoi être désolé

mais cela me donne l'état de la touche, pas le moyen de remplacer. Ou alors je n'ai pas tout compris.

Je crois que je vais regarder du côté des parametres internationaux du coup. Je pensais qu'un replace ("," , ".") aurait été possible, sans sortir l'artillerie lourde !

Merci en tous cas !!

A+