Microsoft 365 Vérifier état touche num

[Electron24]

Bonsoir le Forum,

Après quelques recherches sur le site, j'ai trouvé une solution de modus57 du 12 Février 2014
Hélas, en le mettant en service, cela ne fonctionne pas.
Aussi, je fais appel à vos connaissances pour m'aider à trouver une solution.
Je souhaite mettre dans un formulaire l'état de la touche NUM et si possible celui de la touche
MAJUSCULE par un label qui serait vert si touches actives et noir si touches inactives.
Je vous remercie par avance de votre aide.

​

 

[Dudu2]

Bonjour,
Un petit essai...

 

[Dudu2]

Bonjour @TooFatBoy,
Qu'est-ce que tu fais devant ton PC à 4h00 de matin ?

 

[TooFatBoy]

Bonjour,

Bonjour @TooFatBoy,
Qu'est-ce que tu fais devant ton PC à 4h00 de matin ?

Salut Dudu
Ben... j'attendais que tu postes LA réponse. Maintenant je peux aller dormir l'esprit tranquille.

 

[TooFatBoy]

Au fait, tu sais je lis mes MP, et même j'y réponds parfois (contrairement à certains sur ce forum...).

ps : non, je ne parle pas de toi.

 

[Dudu2]

ps : non, je ne parle pas de toi.

Ça me rassure !

 

[Electron24]

Bonjour Dudu2 , TooFastBoy

Merci pour cet essai Y a t il moyen d'ajouter dans le formulaire un bouton qui remplacerait l'appui sur la touche du clavier. En clair au lieu d'appuyer sur la touche du clavier, je cliquerai sur un bouton placé dans le formulaire.
De plus cela me bloque le focus, je ne peux plus sélectionner une cellule, je suis obligé de faire ALT+F4 pour reprendre la main sur ma feuille. J'ai mis vbModal est ce que cela change quelque chose ?
Bonne journée.

 

[Dudu2]

De plus cela me bloque le focus, je ne peux plus sélectionner une cellule, je suis obligé de faire ALT+F4 pour reprendre la main sur ma feuille. J'ai mis vbModal est ce que cela change quelque chose ?

Le mieux c'est de comprendre ce qu'on fait...

Comment éviter qu'un Formulaire VBA bloque Excel? [SOLUTION]

Comment résoudre le problème quand un Formulaire VBA "bloque" Excel. Explications et exemples sur les types d'affichage des formulaires VBA.

excel-malin.com

 

[Dudu2]

Un autre petit essai...

 

[Electron24]

Re,
Ok je vois la différence.
J'ai donc corrigé mais il y a un petit hic. J'ai ouvert mon classeur puis ouvert mon formulaire en y intégrant ton formulaire. Cela fonctionne bien mais le hic c'est que pour une raison inconnue, le verrouillage num se déveirouille mais l'information n'est pas transmise sur le formulaire, le labelNumLoock reste vert. Pour les majuscules il n'y a pas d'erreur du moins pour maintenant.

Je prépare un classeur pour te le faire parvenir
PS Ton 2ème essai me convient mieux, je le mets en pratique dans mon classeur donc je joins un extrait..
Par contre dans le visual basic l'exécution reste activée même quand j'ai fermé le formulaire.

 

[Dudu2]

PS: Par contre je ne parvient pas à télécharger ton 2ème essai

Peut-être étais-je en train de le mettre à jour. Ré-essaie.

 

[Dudu2]

Par contre dans le visual basic l'exécution reste activée même quand j'ai fermé le formulaire.

Tu récupères que la moitié des trucs. Ça ne peut pas marcher.

Voilà le code du 2ème essai.

Option Explicit

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
'
Private UserFormIsActive As Boolean

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    UserFormIsActive = False
End Sub

Private Sub UserForm_Activate()
    UserFormIsActive = True
    
    Do While UserFormIsActive
        With Me.CommandButtonCapsLock
            If GetCapsState Then .BackColor = vbGreen Else .BackColor = vbRed
        End With
        
        With Me.CommandButtonNumLock
            If GetNumState Then .BackColor = vbGreen Else .BackColor = vbRed
        End With
        
        DoEvents
        Sleep 10
    Loop
End Sub

Compare avec ce que tu as implémenté.

'Option Explicit

Private Sub UserForm_Activate()
    UserFormIsActive = True
    
    If Range("Q2") = 1 Then LabelCapsLcok.BackColor = vbGreen Else LabelCapsLcok.BackColor = vbBlack
    If Range("Q3") = 1 Then LabelNumLock.BackColor = vbGreen Else LabelNumLock.BackColor = vbBlack
'
    Do While UserFormIsActive
        With Me.LabelCapsLcok
            If CapsLock Then .BackColor = vbGreen Else .BackColor = vbBlack
        End With

        With Me.LabelNumLock
            If NumLock Then .BackColor = vbGreen Else .BackColor = vbBlack
        End With

        DoEvents
        ' Sleep 10
    Loop
End Sub

1 - Pas d'Option Explicit. Pour accumuler des erreurs quand on ne maîtrise pas ce qu'on fait c'est l'idéal.
2 - Donc où est la déclaration de la variable UserFormIsActive ?
3 - Pas de Sleep - Idéal pour mouliner en CPU et ne laisser aucun espace pour le reste.
4 - Pas d'évènement UserForm_QueryClose, impossible d'arrêter la moulinette.
J'ai l'impression que t'as modifié à l'aveugle sans chercher à comprendre.

 

[Electron24]

en fait il y avait des erreurs dans mon classeur lors de la recopie de tes codes VBA. Il est aussi vrai que mes connaissances sont très limités et j'ai copié sans trop comprendre ce que je faisait. Méa culpa

 

[Electron24]

Le changement d'état de votre formulaire n'agit pas sur le clavier Est ce normal ?

 

[Dudu2]

Le fichier du Post #9 possède des boutons qui agissent sur le Caps Lock et le Num Lock. En tous cas chez moi.
Pas le fichier du Post #2.