Désactivation du pavé numérique à cause d'un code vba

Version imprimable

1 pièce(s) jointe(s)

Bonjour tout le monde,

je me permets de vous demander votre aide pour un truc qui me laisse totalement perplexe...

j'ai fait un tout petit code (s'inspirant très fortement d'un code trouvé sur un forum) utilisant les fonctions onKey et sendKey permettant de faire un enregistrement automatique d'un fichier toutes les 5 pressions de la touche "entrée" du clavier numérique
(j'ai fait ça à cause d'un problème de stabilité d'un fichier depuis une migration vers excel 2013 64b dont notre nouvel infogérant semble se moquer totalement, bref...)
vous trouverez en pièce jointe le fichier en question dont voila le code :

dans la macro d'ouverture du fichier :
Code:

1 2 3 4 5 6 7 8 Private Sub Workbook_Open() countPressEnter = 0 Application.OnKey "~", "countPressTime" End Sub
dans un module :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim countPressEnter As Integer Private Sub countPressTime() countPressEnter = countPressEnter + 1 Application.SendKeys ("{ENTER}") If countPressEnter = 5 Then ActiveWorkbook.Save Application.SendKeys ("{ENTER}") countPressEnter = 0 CreateObject("Wscript.shell").Popup "Sauvegarde effectuée", 1, "Sauvegarde" Else: Exit Sub End If End Sub
le code fonctionne parfaitement bien : toutes les 5 pressions de la touche entrée, une sauvegarde s'effectue et un pop up s'affiche pour le signaler
donc tout semble parfait sauf que.......... et ben sauf que pour une raison qui m'échappe totalement, à chaque pression de la touche "entrée" du clavier principal, le pavé numérique se désactive !!!

et là, j'ai besoin de vous pour comprendre :)

un grand merci pour votre aide !
julienPièce jointe 359227

12/03/2018, 00h05
clementmarcotte

2 pièce(s) jointe(s)

Bonjour

Presque personne n'ouvre les fichiers balancés avec la première question.

Et encore moins les fichiers de macros

Et puis, il y a bien plus simple que ta patente:
Le minimum c'est une minute. Au pire le travail perdu se limite à l'intervalle.

Pièce jointe 359232

Et/ou, développer le réflexe de cliquer dans la barre d'outils Accès rapide:

Pièce jointe 359233

Si l'icone n'est pas affichée, tu peux l'afficher et même l'ajouter.
12/03/2018, 02h25
kiki29
Salut, pb connu et récurrent pour cela utiliser le Shell pour tous les SendKeys. Cela si tu n'as pas opté pour la solution de Clément plus simple et efficace.
Code:

1 2 3 4 With CreateObject("WScript.Shell") .SendKeys .... ..... End With
12/03/2018, 08h56
misterjuicelink

Citation:

Envoyé par clementmarcotte

Bonjour

Presque personne n'ouvre les fichiers balancés avec la première question.

Et encore moins les fichiers de macros

Ah ok désolé, j'ignorais, mais c'est vrai qu'en y repensant, c'est assez logique

Citation:

Envoyé par clementmarcotte

Et puis, il y a bien plus simple que ta patente:
Le minimum c'est une minute. Au pire le travail perdu se limite à l'intervalle.

Pièce jointe 359232

Et/ou, développer le réflexe de cliquer dans la barre d'outils Accès rapide:

Pièce jointe 359233

Si l'icone n'est pas affichée, tu peux l'afficher et même l'ajouter.

En fait je l'ai faite probablement un peu trop courte dans mon premier post pour pas ennuyer avec les détails, mais ça aurait surement valu le coup finalement.
La sauvegarde automatique ne fonctionne pas correctement car le fichier qui pose problème fonctionne avec des liens OLE vers un logiciel de compta. Et quand le fichier plante et qu'on se fait sortir d'Excel sauvagement, ça "casse" tout, et c'est une vraie galère pour les restaurer. Résultat, c'est beaucoup plus simple de repartir de la dernière sauvegarde propre que l'on a

Pour le réflexe ctrl+s ou l'icone de sauvegarde, je suis d'accord, mais ce n'est pas le cas de tout le monde, et parfois, quand on est dans le boulot, beaucoup de collègues n'y pensent pas, et perdent plusieurs dizaines de minutes de travail, ce qui peut représenter pas mal de remplissage du fichier...

julien

Citation:
Envoyé par kiki29
Salut, pb connu et récurrent pour cela utiliser le Shell pour tous les SendKeys. Cela si tu n'as pas opté pour la solution de Clément plus simple et efficace.
Code:

1 2 3 4 With CreateObject("WScript.Shell") .SendKeys .... ..... End With
Salut Kiki !
merci pour ton aide
mais je ne connais pas le shell, peux tu m'en dire un peu plus sur le pourquoi du comment?

j'ai essayé avec ca :

Dim countPressEnter As Integer
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub countPressTime() countPressEnter = countPressEnter + 1 With CreateObject("WScript.Shell") .SendKeys ("{ENTER}") End With If countPressEnter = 5 Then ActiveWorkbook.Save countPressEnter = 0 CreateObject("Wscript.shell").Popup "Sauvegarde effectuée", 1, "Sauvegarde" ' Application.SendKeys ("{ENTER}") Else: Exit Sub End If End Sub
mais ça fait tourner la macro en boucle, je suis obligé de l'arrêter à la main...

julien

12/03/2018, 12h27
kiki29

re, puisque tu sembles partisan de la complexification des applis va voir VERR MAJ et VERR NUM dans userform , à adapter à ton contexte.
12/03/2018, 12h46
misterjuicelink

Citation:

Envoyé par kiki29

re, puisque tu sembles partisan de la complexification des applis va voir VERR MAJ et VERR NUM dans userform , à adapter à ton contexte.

Merci beaucoup, je vais regarder avec attention
et comme je sens un peu de sarcasme dans ta réponse ;), je vais simplement préciser que je suis adepte du plus simple, mais je fais aussi ce que je peux avec ce que j'ai, c'est à dire une bande d'informaticien persuadés que si le fichier plante inopinément, c'est la faute du fichier... alors qu'avant la migration chez eux, ça marchait parfaitement bien, et que sur la version excel installée sur le serveur TSE, ça marche aussi parfaitement bien...
donc face à un mur qui refuse d'admettre que l'excel installé sur les postes est mal installé, je me débrouille comme je peux et avec l'aide de gens comme toi qui est ultra précieuse !

julien
14/03/2018, 01h22
kiki29

1 pièce(s) jointe(s)

Salut, la version allégée, eh oui les mutawas ... ( j'en ai calmé certains jadis )
14/03/2018, 17h34
misterjuicelink

1 pièce(s) jointe(s)

Citation:

Envoyé par kiki29

Salut, la version allégée, eh oui les mutawas ... ( j'en ai calmé certains jadis )

merci beaucoup !
mais pas mieux... je crois que j'essaye de faire un truc qui dépasse largement mon niveau...
j'ai surement mal compris ton fichier et mal integré au mien

la marco a l'air de fonctionner mais 2 coups sur 4, je n'ai plus le pavé numérique...
je saisis "1", je fais "entrée"
je saisis "2", je fais "entrée"
et la je peux plus saisir de chiffre, je fais quand meme "entrée"
je peux toujours pas saisir de chiffre, je ferais "entrée"
et la je peux a nouveau saisir un chiffre, je fais "entrée"
je peux encore saisir un chiffre, je fais "entrée"
je ne peux plus saisir de chiffre, etc.......

en pj mon fichier...
Pièce jointe 360313

Bonjour.
Je suis parti du code donné par Kiki29.
J'ai simplifié pour qu'il tienne dans un module normal et non plus un module de classe.
SetNumLock(True) pour activer le clavier numérique.
SetNumLock(False) pour désactiver le clavier numérique.
SetCapital(True) pour activer le mode majuscule.
SetCapital(False) pour désactiver le mode majuscule.

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit
 
Private Declare Sub keybd_event Lib "User32" (ByVal bVk As Byte, _
                                              ByVal bScan As Byte, _
                                              ByVal dwFlags As Long, _
                                              ByVal dwExtraInfo As Long)
 
Private Declare Function GetKeyState Lib "User32" (ByVal nVirtKey As Long) As Integer
 
Private Declare Function MapVirtualKey Lib "User32" Alias "MapVirtualKeyA" (ByVal wCode As Long, _
                                                                            ByVal wMapType As Long) As Long
Private Const VK_NUMLOCK = &H90
Private Const VK_CAPITAL = &H14
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Const KEYEVENTF_KEYUP = &H2
 
'---------------------------------------------------------------------------------------
Private Sub SetKeyState(ByVal Key As Long, ByVal State As Boolean)
'---------------------------------------------------------------------------------------
keybd_event Key, MapVirtualKey(Key, 0), KEYEVENTF_EXTENDEDKEY Or 0, 0
keybd_event Key, MapVirtualKey(Key, 0), KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
 
If Key = 20 And State = False Then ' cas particulier pour VK_CAPITAL
    keybd_event 16, 0, 0, 0
    keybd_event 16, 0, 2, 0
End If
End Sub
 
'---------------------------------------------------------------------------------------
Public Sub SetNumLock(Etat As Boolean)
'---------------------------------------------------------------------------------------
' Etat = True : Active le clavier numérirque.
' Etat = False : désactive le clavier numérique.
'---------------------------------------------------------------------------------------
While GetKeyState(VK_NUMLOCK) = 1 + Etat
    SetKeyState VK_NUMLOCK, Etat
    DoEvents
Wend
End Sub
 
'---------------------------------------------------------------------------------------
Public Sub SetCapital(Etat As Boolean)
'---------------------------------------------------------------------------------------
' Etat = True : Active le mode majuscule.
' Etat = False : désactive le mode majuscule.
'---------------------------------------------------------------------------------------
While GetKeyState(VK_CAPITAL) = 1 + Etat
    SetKeyState VK_CAPITAL, Etat
    DoEvents
Wend
End Sub
'---------------------------------------------------------------------------------------

Dites-moi si ça marche ?

P.-S. : J'ai bien aimé cette ligne de code : NumLock = GetKeyState(VK_NUMLOCK) = 1 dans la fonction Public Property Get NumLock() As Boolean

16/03/2018, 10h15
patricktoulon

re
normalement si on remplace tout le sendkeys par la meme chose avec l'api keybd_event(down et up!!!)de la librairie user32 le numlok n'est pas affecté
24/09/2021, 11h44
FBOGG

Merci du tuyau
Le code
Code:

1 2 3 With CreateObject("WScript.Shell") .SendKeys "{NUMLOCK}" End With
Fonctionne à merveille, et est très simple à intégrer dans des macros "d'amateur"
Merci à vous du temps passé pour nous aider
JML