Discussion :

[pierre22]

Bonjour

pour transformer la virgule du clavier numérique en point, j'essaye cette écriture de Cafeine trouvée sur le forum

Code :

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

1
2
3
Private Sub MonTextBox_KeyPress(KeyAscii As Integer)
    If KeyAscii = 59 Then KeyAscii = 46
End Sub

le probleme est qu'elle transforme seulement le point virgule en point, mais pas la virgule du clavier numérique

[mout1234]

Bonsoir,

Effectivement, ça n'a pas l'air de marcher...

Je viens d'essayer ceci:

Code :

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

1
2
3
4
5
6
7
Private Sub MonTextBox_KeyDown(KeyCode As Integer, Shift As Integer)
 
If KeyCode = 110 Then  'le point sur le pavé décimal
    KeyCode = 0            'annule le code saisi
    SendKeys ".", False   'simule la saisie d'un point
End If
End Sub

J'aime pas trop utiliser le SendKeys mais bon... ça semble bien marcher...
PS: J'avais essayé en mettant KeyCode = 190 (touche ; et . du clavier) mais je n'ai pas trouvé comment le forcer en majuscule ....

[vodiem]

bonjour pierre22 et mout1234,

tu as raison mout1234 c'est très surprenant, Shift se comporte comme s'il était déclaré en ByVal (variable locale), pourtant la propriété "aperçu des touches" montre qu'elle est bien modifiée mais dans tous les cas cela n'affecte pas le traitement.

pour le fun, il y a aussi ca sans SendKeys()

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Texte0_Change()
If InStr(Texte0.Text, ",") Then
    p = Texte0.SelStart
    l = Texte0.SelLength
    Texte0.Text = Replace(Texte0.Text, ",", ".")
    Texte0.SelStart = p
    Texte0.SelLength = l
End If
End Sub

mais si on appui sur la virgule ca met le point.


ps: normalement on doit jouer sur les paramètres régionaux.

[mout1234]

...
ps: normalement on doit jouer sur les paramètres régionaux.

Salut vodiem,

On est d'accord... mais il est des situations où l'on ne peut pas (droits utilisateurs insuffisants, volonté de ce dernier de ne pas changer....)


A+
Mout

[vodiem]

oui mout1234, j'annotais cela des fois que le cas n'avait pas été pris en compte.

sinon en réadaptant mon code on peut avoir une procédure pour le pavé numérique, sans sendkeys:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub MonTextBox_KeyDown(KeyCode As Integer, Shift As Integer)
 
If KeyCode = 110 Then  'le point sur le pavé décimal
   If InStr(MonTextBox.Text, ",") Then
       p = MonTextBox.SelStart
       l = MonTextBox.SelLength
       MonTextBox.Text = Replace(MonTextBox.Text, ",", ".")
       MonTextBox.SelStart = p
       MonTextBox.SelLength = l
   End If
End If
End Sub

enfin il faudrait encore adapter si l'on veut que ce soit vraiment la dernière touche enfoncé et conserver la possibilité d'avoir des virgules dans le texte...

sinon au vu de cette article, il y a une solution de remplacement à sendkeys qui parait inquiétant...

@+