Sur le site de Daniel Josserand, j'ai trouvé une macro pour activer le
verrouillage numérique à l'ouverture d'Excel.
Je voudrais lancer une procédure de ce type à la fin d'une macro (qui
systématiquement me désactive par mystère le blocage).
Je ne sais pas comment l'intégrer, et je n'ai pas trouver comment la
commander par la fonction OnKey ...
Si certains ont une solution pour ce faire, c'est ce que je recherche ...
Merci à tous
François
ci-dessous le code de D.J.
Comment activer le Num(ou Caps) lock à chaque lancement d' Excel?
Private Declare Function SetKeyboardState Lib "User32" _
(kbArray As Byte) As Long
Private Declare Function GetKeyboardState Lib "User32" _
(lpKeyState As Byte) As Long
Sub TestLock()
Dim KeyState(0 To 255) As Byte
GetKeyboardState KeyState(0)
KeyState(&H90) = 1 'Num Lock
'KeyState(&H14) = 1 'Caps Lock
SetKeyboardState KeyState(0)
End Sub
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
François
pardon à tous pour l'erreur de date, je le remets à la bonne date
François
"François" a écrit dans le message de news:
Bonjour à tous,
Sur le site de Daniel Josserand, j'ai trouvé une macro pour activer le verrouillage numérique à l'ouverture d'Excel. Je voudrais lancer une procédure de ce type à la fin d'une macro (qui systématiquement me désactive par mystère le blocage).
Je ne sais pas comment l'intégrer, et je n'ai pas trouver comment la commander par la fonction OnKey ...
Si certains ont une solution pour ce faire, c'est ce que je recherche ...
Merci à tous
François
ci-dessous le code de D.J.
Comment activer le Num(ou Caps) lock à chaque lancement d' Excel? Private Declare Function SetKeyboardState Lib "User32" _ (kbArray As Byte) As Long
Private Declare Function GetKeyboardState Lib "User32" _ (lpKeyState As Byte) As Long
Sub TestLock() Dim KeyState(0 To 255) As Byte GetKeyboardState KeyState(0) KeyState(&H90) = 1 'Num Lock 'KeyState(&H14) = 1 'Caps Lock SetKeyboardState KeyState(0) End Sub
pardon à tous pour l'erreur de date, je le remets à la bonne date
François
"François" <nospam@nospam.fr> a écrit dans le message de news:
O6CY548hJHA.1388@TK2MSFTNGP06.phx.gbl...
Bonjour à tous,
Sur le site de Daniel Josserand, j'ai trouvé une macro pour activer le
verrouillage numérique à l'ouverture d'Excel.
Je voudrais lancer une procédure de ce type à la fin d'une macro (qui
systématiquement me désactive par mystère le blocage).
Je ne sais pas comment l'intégrer, et je n'ai pas trouver comment la
commander par la fonction OnKey ...
Si certains ont une solution pour ce faire, c'est ce que je recherche ...
Merci à tous
François
ci-dessous le code de D.J.
Comment activer le Num(ou Caps) lock à chaque lancement d' Excel?
Private Declare Function SetKeyboardState Lib "User32" _
(kbArray As Byte) As Long
Private Declare Function GetKeyboardState Lib "User32" _
(lpKeyState As Byte) As Long
Sub TestLock()
Dim KeyState(0 To 255) As Byte
GetKeyboardState KeyState(0)
KeyState(&H90) = 1 'Num Lock
'KeyState(&H14) = 1 'Caps Lock
SetKeyboardState KeyState(0)
End Sub
pardon à tous pour l'erreur de date, je le remets à la bonne date
François
"François" a écrit dans le message de news:
Bonjour à tous,
Sur le site de Daniel Josserand, j'ai trouvé une macro pour activer le verrouillage numérique à l'ouverture d'Excel. Je voudrais lancer une procédure de ce type à la fin d'une macro (qui systématiquement me désactive par mystère le blocage).
Je ne sais pas comment l'intégrer, et je n'ai pas trouver comment la commander par la fonction OnKey ...
Si certains ont une solution pour ce faire, c'est ce que je recherche ...
Merci à tous
François
ci-dessous le code de D.J.
Comment activer le Num(ou Caps) lock à chaque lancement d' Excel? Private Declare Function SetKeyboardState Lib "User32" _ (kbArray As Byte) As Long
Private Declare Function GetKeyboardState Lib "User32" _ (lpKeyState As Byte) As Long
Sub TestLock() Dim KeyState(0 To 255) As Byte GetKeyboardState KeyState(0) KeyState(&H90) = 1 'Num Lock 'KeyState(&H14) = 1 'Caps Lock SetKeyboardState KeyState(0) End Sub