Désactivation verrouillage numérique

**jpma75** · 14/01/2018, 11h10

Bonjour,

Je me suis rendu compte que l'exécution de certaines de mes macros pouvaient désactiver le "verrouillage numérique" (cf. clavier).

Normalement, aucune instruction dans le code, en ce sens.

Je ne sais pas par où chercher !
Merci d'avance pour vos lumières.
Cdt

**78chris** · 14/01/2018, 11h15

Bonjour

Sans plus de détail sur le code... Sans doute de sendkey...

**jpma75** · 14/01/2018, 11h20

Bonjour,

Ah oui, ça me paraît être une bonne piste !

Le seul que j'utilise est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "%{Down}"

Je ne vois pas pourquoi il désactiverait le "verrouillage numérique" mais je pense néanmoins que tu as raison.
Peut-être y a-t-il quelque chose à ajouter après ce SendKeys pour réinitialiser le pavé numérique ?!

**unparia** · 14/01/2018, 11h21

Envoyé par 78chris

.. Sans doute de sendkey...

C'est même certain.

(l'utilisation de Sendkeys est toujours la marque de la pauvreté).

**jpma75** · 14/01/2018, 11h24

Beati pauperes spiritu

**unparia** · 14/01/2018, 11h28

Bien plus heureux sont les sages, jpma ...
Quel est la finaliuté de ton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SendKeys "%{Down}"

???
Ta réponse te permettra peut-être de t'enrichir

Sauf si tu "pilotes" AINSI (fortement déconseillé) une autre application (laquelle, d'ailleurs ?)

**jpma75** · 14/01/2018, 11h32

Les sages, je viens les chercher sur le forum... Je suis une brebis égarée dans l'environnement d'Excel...

(Je tiens à ce SendKeys et "mes" utilisateurs ne me démentiront pas)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If [p2] = "-" And ActiveSheet.Name <> "réf." Then
        With Range("k2") 
            .MergeArea.ClearContents 
            .Select
            SendKeys "%{Down}"
        End With
    End If

**78chris** · 14/01/2018, 11h37

Re

Sans doute pour une liste déroulante : remplace Down par Up et cela évitera le souci

**jpma75** · 14/01/2018, 11h39

Affirmatif, pour l'ouverture d'un menu déroulant.

Je ne peux pas tester tout de suite mais je te tiens au courant dès que possible.

Merci beaucoup pour cette piste !
Cdt

**jpma75** · 14/01/2018, 13h50

Désolé, même avec "Up" ça affecte le pavé numérique.
Ce qui est sûr à présent, c'est que c'est bien ce SendKeys qui est à l'origine du "problème".
Cdt

**78chris** · 14/01/2018, 14h24

RE

Bizarre car sur des tests précédents cela solutionnait...

Edit : je viens de retester sur un fichier où j'avais proposé cette solution ici en juin et cela fonctionne bien. Ton pavé est bien actif avant la macro ?

**jpma75** · 14/01/2018, 14h57

Oui, il est bien actif avant la macro.

Je le surveille quand j'exécute le code pas à pas (avec F8) et le voyant du pavé numérique change d'état suivant que j'ouvre le menu et que je valide une date où que je n'en sélectionne pas. Pour l'instant, ça me paraît un peu aléatoire (je me demande s'il n'y a pas un Worksheet_Change ou un Worksheet_SelectionChange qui y est pour quelque chose. A ce stade, je ne peux guère t'en dire plus.
Cdt

**Docmarti** · 14/01/2018, 17h27

Bonjour.

Essaie ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
With Range("k2")
            .MergeArea.ClearContents
            .Select
            SendKeys "%{Down}"
            DoEvents
End With
SendKeys "{NUMLOCK}"
SendKeys "{NUMLOCK}"

**jpma75** · 15/01/2018, 13h06

Bonjour,

Malheureusement...

En surveillant le voyant de la touche "Num Lock", je vois qu'une même séquence de code ne produit pas systématiquement les mêmes effets. Même "pas à pas", je ne peux (pour l'instant) pas voir où ça coince. Par ailleurs, (et c'est très dommage dans le cas présent), il semble que le pas à pas (F8) ne déclenche pas l'ouverture du menu déroulant... Etrange.

En faisant une recherche sur le net, avec SendKeys "{NUMLOCK}", je suis tombé sur :

https://www.developpez.net/forums/d1...dkeys-numlock/

Ça me rassure un peu que d'autres aient fait ce même constat ! J'ai testé, mais dans mon cas le résultat est aléatoire et donc non-concluant.

Au pire, il faudrait que je puisse réactiver le verrouillage numérique en toute fin de procédure pour que l'utilisateur ne s'étonne pas que son clavier numérique ne réponde pas comme il le souhaiterait.

PS : Je ne comprends pas pourquoi il faut répéter la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
SendKeys "{NUMLOCK}"
SendKeys "{NUMLOCK}"

**Docmarti** · 15/01/2018, 19h39

Envoyé par jpma75

En faisant une recherche sur le net, avec SendKeys "{NUMLOCK}", je suis tombé sur :

https://www.developpez.net/forums/d1...dkeys-numlock/

La solution de kiki29 dans ton lien semble etre la meilleure car elle ne modifie pas l'etat du clavier numerique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub kiki29()
Cells(2, 11).Select
 
Dim Wsh As Object
 
    Set Wsh = CreateObject("WScript.Shell")
    Wsh.SendKeys "%{DOWN}", True
    Set Wsh = Nothing
 
End Sub

PS : Je ne comprends pas pourquoi il faut répéter la ligne :

Le code suivant demontre que, si le clavier numerique est active avant la commande SendKeys "%{Down}", il faut 2 commandes SendKeys "{NUMLOCK}" pour le re-activer par apres.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
Private Const kNumlock = 144
 
Private Function KeyState(lKey As Long) As Boolean
KeyState = CBool(GetKeyState(lKey))
End Function
 
Public Function NumLock() As Boolean
NumLock = KeyState(kNumlock)
End Function
 
Sub Macro()
  Dim a As Boolean
  With Range("k2")
            '.MergeArea.ClearContents
            .Select
            SendKeys "%{Down}"
            DoEvents
 End With
 
 a = False
 nbr = 0
 While a = False
 SendKeys "{NUMLOCK}"
 nbr = nbr + 1
 DoEvents
 a = NumLock
 Wend
 
MsgBox nbr
End Sub

**unparia** · 15/01/2018, 19h51

Affirmatif, pour l'ouverture d'un menu déroulant

Précise en détail tout de ce qu'est très exactement ce "menu déroulant".

**kiki29** · 15/01/2018, 19h56

Re, d'autres possibilités :
VBA : Connaître l'état d'une touche du clavier
En adaptant et élaguant ceci

**unparia** · 15/01/2018, 21h38

La vraie question à se poser est pour moi celle de la raison fondamentale qui conduit à l'utilisation de Sendkeys (voire d'un substitut). Rien de cela n'est véritablement orthodoxe et je suis à peu près certain de ce qu'une autre approche, à commencer par le choix de ce "menu déroulant" aboutirait à quelque-chose de plus stable et de plus convivial.
C'est la raison de la question que j'ai posée dans mon message précédent.

**clementmarcotte** · 15/01/2018, 22h24

Bonjour

Envoyé par jpma75

Je tiens à ce SendKeys

Je rejoins unparia;
POURQUOI ?
C'est quoi ton "menu déroulant'

Si c'est juste pour sortir le curseur d'une cellule, cela peut se faire sans SendKeys.

Si c'est pour une opération nom-orthodoxe, cela vaut la peine d'expliquer.

**joe.levrai** · 15/01/2018, 22h29

Bonjour,

il souhaite simplement "déplier" automatiquement une liste de validation disposée dans cette cellule

à trop vouloir mâcher le travail des utilisateurs, on finit parfois par en perdre ses cheveux

Désactivation verrouillage numérique

Macros et VBA Excel

Discussions similaires

Partager

Partager