> Tous les forums > Forum Bureautique
 Contrôler Num Lock par VBA Word
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Pjouv
  Posté le 10/10/2021 @ 11:20 
Aller en bas de la page 
Petit astucien

Normal 0 21 false false false FR X-NONE HE /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Table Normal"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-priority:99; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times","serif"; mso-bidi-font-family:"Times New Roman"; mso-bidi-language:AR-SA;}

Bonjour.

Je cherche, depuis une macro Word en VBA, à pouvoir tester l’état de la touche Verr Num (Num Lock) et éventuellement la modifier.

J’ai essayé plusieurs solutions :

· Pour connaître son état :

Application.NumLock

Cela semble fonctionner, encore que de façon étrange, puisque j’obtiens True quand la touche est désactivée, et False quand activée !

· Pour l’activer :

Je mets au début du module :

Private Declare Function GetKeyState Lib "user32" (ByVal iVirtualKey As Integer) As Long

Puis dans la macro :

If GetKeyState(vbKeyNumlock) = 0 Then

SendKeys "{NUMLOCK}"

End If

GetKeyState(vbKeyNumlock) renvoie plus logiquement « 0 » quand Numéro Lock est désactivé, « 1 » quand il est activé.

· Pour la désactiver :

If Not (Application.NumLock) Then ' Si activé.

SendKeys "{NUMLOCK}"

End If

Le problème est que, dans ces deux derniers cas, le résultat est aléatoire. Ça peut marcher un moment, puis cela ne répond plus, la touche n’est pas modifiée.

Quelqu’un aurait-il une solution stable ?

Je précise que je suis sur Windows 7, Word 2010.

Merci d’avance.

Pjouv





[Configuration automatique à compléter]
Windows 7
Firefox 92.0

Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
14,20 €Jeu de société Cluedo à 14,20 €
Valable jusqu'au 28 Mai

Amazon fait une promotion sur le jeu de société Cluedo qui passe à 14,20 € au lieu de 24,99 €. Les joueurs doivent élucider le meurtre au manoir - Les joueurs se déplacent de pièce en pièce pour découvrir qui a commis le meurtre. Avec un nouveau mode 2 joueurs.


> Voir l'offre
94,99 €Adobe Creative Cloud pour la photo (Adobe Photoshop CC et Lightroom) à 94,99 €
Valable jusqu'au 28 Mai

Amazon propose actuellement le code d'activation pour Adobe Creative Cloud à 94,99 € alors qu'on le trouve ailleurs à 140 € environ. Vous pourrez ainsi accéder pendant 1 an aux meilleurs outils de photographie du monde, dont Adobe Photoshop et Lightroom (mobile, web et pour poste de travail) ainsi qu'à une vaste bibliothèque de didacticiels vidéo pour maitriser ces logiciels ainsi que 20 Go de stockage dans le cloud. Cette offre est valable pour MAC et pour PC


> Voir l'offre
78,99 €Disque dur externe portable Western Digital Elements SE USB 3.0 4 To à 78,99 €
Valable jusqu'au 28 Mai

La boutique Western Digital propose actuellement le disque dur externe portable Western Digital Elements SE USB 3.0 4 To à 78,99 €. On le trouve ailleurs à partir de 89,99 €. Ce disque dur qui tient dans la main est silencieux, ne chauffe pas et dispose d'une connectique USB 3.0 qui vous offrira des transferts rapides. Il est compatible USB 2.0. Une très bonne affaire.

La livraison est gratuite.


> Voir l'offre

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique