forcer CAPS unlock

[moitoine]

Bonjour,

Avec votre aide, j'ai mis en place une petite application VBA qui me permet de scanner avec un lecteur de code barre les colis sortant.

J'ai eu des problemes de saisie car le caps lock etait activé.

Est-il possible de forcer les minuscules au lancement du userform ? (bien que j'ai un doute à ce sujet, ce choix etant materiel )

Ou éventuellement emettre un son si le caps lock est ON ou si certains caracteres tels &, " ou à sont saisis.

J'espere avoir été suffisament clair 😛

Merci d'avance

Antoine

 

[Épaf]

Re : forcer CAPS unlock

Bonjour moitoine,
Si c'est pour passer une variable en minuscule, tu as Lcase("TExte")
Sinon, tu peux tester

Application.AutoCorrect.CorrectCapsLock = True

à part quoi je n'ai rien trouvé.
Bonne jornée

 

[Dull]

Re : forcer CAPS unlock

Salut moitoine, Epaf, le Forum

essaye

Private Sub TextBox1_Change()
TextBox1 = LCase(TextBox1)
.......

Bonne Journée

 

[MJ13]

Re : forcer CAPS unlock

Bonjour,

J'ai trouvé une solution pour ne plus avoir de problème avec la touche caps lock.
Voyez vous laquelle?

 

[wilfried_42]

Re : forcer CAPS unlock

Bonjour à tous

Mj13 moi aussi et c'est radicale, je l'ai otée de mon clavier

 

[Pierrot93]

Re : forcer CAPS unlock

Bonjour à tous

une option des paramètres régionaux...

https://www.excel-downloads.com/threads/sauvegarde-disquette.42150/

bonne journée
@+

 

[MJ13]

Re : forcer CAPS unlock

Re bonjour,

Et bien Oui Wilfried, c'est cela. Il suffit d'ôter la touche Caps lock du clavier pour ne plus s'enméler avec les minuscules et les majuscules!

Bravo!

 

[moitoine]

Re : forcer CAPS unlock

Le probleme n'est pas tellement les majuscules ou miniscules, mais plutôt la différence entre un numéro de tracking comme celui-ci: FRAA012345678DA et ca: fraaà&é"'(-è_da ^^

Je crois que je vais me diriger vers une solution de msgbox idinquant que le caps lock est verrouillé, je vais chercher ca ^^

et je vais commencer par aller chercher un tournevis pour virer cette foutue touche.

merci

 

[mutzik]

Re : forcer CAPS unlock

bonjour,
code trouvé sur developpez.com
Private Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Enum apiOnOff
apiOn = 1
apiOff = 0
End Enum
Dim kbArray As KeyboardBytes
Private Declare Function GetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As KeyboardBytes) As Long
Private Sub ChangerCapsLock(v As apiOnOff)
GetKeyboardState kbArray
kbArray.kbByte(&H14) = v
SetKeyboardState kbArray
End Sub
Sub CapsOff()
ChangerCapsLock apiOff
End Sub
Sub CapsOn()
ChangerCapsLock apiOn
End Sub

par contre, il ne change pas l'état de la led, mais force bien la saisie en majuscule ou minuscule

 

[wilfried_42]

Re : forcer CAPS unlock

Bonjour mutzik

Bien joué, je garde ce code, et je remets ma touche, merci pour le temps passé à la recherche

Bonne journée