Affichage en majuscule

[néné06]

Bonjour à toutes et à tous.

J'ai entré ces codes afin de convertir en maj

Private Sub TB100_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > 96 Then KeyAscii = KeyAscii - 32
End Sub

et avec KeyDown,KeyUp, mais par moments cela ne fonctionne pas???
j'ai oublié quelque chose?????


Merci pour l'aide

 

[jp14]

Re : Affichage en majuscule

Bonjour

une autre méthode
Private Sub textBox1_keyPress(ByVal keyAscii As MSForms.ReturnInteger)
keyAscii = Asc(UCase(Chr(keyAscii)))
End Sub
qui évite de faire une soustraction pour des codes supérieur à 122.

JP

 

[néné06]

Re : Affichage en majuscule

Re:

Bonjour JP14

Mon problème est que sur l'ordi du travail, celui-ci est tellement bridé qu'il n'accepte pas des instructions simples du style Left ,Right,Ucase,Date etc...

par contre je ne comprend pas pourquoi l'ordi accepte sans probléme mes codes 8 ou 20 fois etc... et soudainement va me placer des minuscules au lieu de majuscules.

C'est peut étre les mystères de l'informatique??????????????

Merci pour tout.