Capslock

[fifi]

Bonjour 😀

pouvez vous m'indiquer comment lors du remplissage d'un useForm , la fonction majusscule soit activée par défaut ?

merci

 

[lapix]

Re : Capslock

Bonjour,

Comme c'est une touche, il est surement possible de l'avoir par une API mais ce code fonctionne dans le cas d'un textbox par exemple :

Private Sub TextBox1_Change()
Me.TextBox1.Text = UCase(Me.TextBox1.Text)
Me.TextBox1.SelStart = Len(Me.TextBox1.Text)
End Sub

 

[fifi]

Re : Capslock

humm je vais déjà agir avec ces info en attendant mieux
je vais retraiter les informations après saisie (c'est peut etre mieux même , moins déroutant pour l'utilisateur)

merci

 

[Hervé]

Re : Capslock

bonjour

une possibilité en passant par une api.

salut

 

[lapix]

Re : Capslock

Super

Tu aurais pas le OFF par hasard ?

 

[fifi]

Re : Capslock

MERCI CA MERCHE SUPER;;;

AH OUI LE OFF 😀

je vais regarde comment ca merche

 

[Hervé]

Re : Capslock

re

pour le off, cette horreur fonctionne chez moi :

Sub Bouton1_QuandClic()
Call keybd_event(20, 0, 0, 0) 'active le capslock
 UserForm1.Show
 'desactive le capslock
Call keybd_event(20, 0, 2, 0)
Call keybd_event(20, 0, 0, 0)
Call keybd_event(20, 0, 2, 0)
End Sub

on doit répéter l'appui sur le capslock plusieurs fois, car le clavier ne sait pas que l'on à appuyé sur capslock, donc il faut le réinitialiser pour l'annuler.

je suis pas sur que ceci fonctionne pour tout les claviers, car certains demande l'appui sur majuscule pour annuler le capslock.

en tout cas ca fonctionne chez moi

salut

 

[fifi]

Re : Capslock

super sympa 😀 ca marche chez moi 😀
merci encore