Microsoft 365 Vérifier état touche num

Dudu2

XLDnaute Barbatruc

• 6 Mai 2024

• #2

Bonjour,
Un petit essai...

 

Pièces jointes

• Caps Lock & Num Lock.xlsm

  26.7 KB · Affichages: 6

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Mai 2024

• #3

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 6 Mai 2024

• #4

Bonjour,

Dudu2 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 6 Mai 2024

• #5

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.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Mai 2024

• #6

ps : non, je ne parle pas de toi.

Cliquez pour agrandir...

Ça me rassure !

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 6 Mai 2024

• #7

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.

 

Dernière édition: 6 Mai 2024

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Mai 2024

• #8

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 ?

Cliquez pour agrandir...

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

 

Dernière édition: 6 Mai 2024

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Mai 2024

• #9

Un autre petit essai...

 

Pièces jointes

• Caps Lock & Num Lock.xlsm

  36.9 KB · Affichages: 4

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 6 Mai 2024

• #10

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.

 

Pièces jointes

• Classeur de Test.xlsm

  673.1 KB · Affichages: 3

Dernière édition: 6 Mai 2024

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Mai 2024

• #11

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Mai 2024

• #12

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

Cliquez pour agrandir...

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

Voilà le code du 2ème essai.

VB:

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é.

Code:

'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.

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 6 Mai 2024

• #13

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

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 6 Mai 2024

• #14

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

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 6 Mai 2024

• #15

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.

 

Vote positif 0 Vote négatif