non prise en compte d'une frappe clavier ??

[néné06]

Bonjour a toutes et à tous

Sur mon programme, je souhaite remplacer le code ascii 46 "." par le code ascii 44 ",".
cela fonctionne dans environ 99% des cas , mais quelques fois le code "," ne s'affiche pas mais c'est le code "." qui apparait????


Voici mes routines

Private Sub TB4_Change()
If Right(Me("TB4").Value, 1) = "." Then Right(Me("TB4").Value, 1) = ","
End Sub
Private Sub TB4_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 110 Then KeyCode = 188
End Sub
Private Sub TB4_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 110 Then KeyCode = 188
End Sub
Private Sub TB4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii = 46 Then KeyAscii = 44
End Sub


Quelqu'un aurait il une explication,voire une solution pour remedier à ce probléme ???

D'avance Merci!!

 

[kjin]

Re : non prise en compte d'une frappe clavier ??

Bonsoir,
Pourquoi ne pas tout mettre dans le même panier

Private Sub TB4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
    Case 44, 48 To 57
    Case 46: KeyAscii = 44
    Case 110: KeyAscii = 188 '???
    Case Else: KeyAscii = 0
End Select

End Sub

A+
kjin

 

[néné06]

Re : non prise en compte d'une frappe clavier ??

Bonsoir Kjin
Private Sub TB4_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 44, 48 To 57
Case 46: KeyAscii = 44
Case 110: KeyAscii = 188 '???' Ici Keycode et non keyascii pour keyup et keydown
Case Else: KeyAscii = 0
End Select

End Sub
Je vais mettre tout dans le même panier et essayer, mais comme tu as pu le constater sur mon exemple , j'ai placé quatre barrage ou l'ordi analyse la valeur de la touche et théoriquement la modifie.
L'erreur, malgré cela, réapparait aléatoirement. Pourquoi?????????

A+

 

[eriiic]

Re : non prise en compte d'une frappe clavier ??

Bonsoir,

J'ai testé 2 fois ta macro sur 852 et 1008 caractères : aucun '.' n'y a réchappé.
Peut-être un pb de vitesse d'UC chez toi ?
J'ai un core i7 920

eric

 

[néné06]

Re : non prise en compte d'une frappe clavier ??

bonsoir eriiiic

Je ne pense pas à un pb de vitesse UC.
le pb n'apparait pas sur la répétition des entrée mais aléatoirement et rarement sur la première frappe.
Peut étre un VBA corrompu sur Excel ?

A+

 

[eriiic]

Re : non prise en compte d'une frappe clavier ??

Le . au-dessus du ; a pour keycode 190 est n'est pas filtré.
Ce n'est pas celui-ci ?