Détecter l'appui d'une touche au clavier (remplacement inkey$)

Version imprimable

02/03/2023, 06h53
La Rascasse

Détecter l'appui d'une touche au clavier (remplacement inkey$)

Bonjour,

Je travaille sur une macro qui fait des calculs et qui tourne longtemps (> 6heures) mais j'aimerais pouvoir l'interrompre en appuyant une touche au clavier,
ceci pour vérifier si tout se passe bien. Ensuite je modifie le début d'une boucle et je peux reprendre là où s'en était.

J'ai trouvé cette macro sur le net que j'aimerais inclure dans la mienne.
J'ai commencé à la mettre seule dans un fichier Excel (prenant en charge les macros) pour l'évaluer, mais ça ne marche pas.
Voici ma macro ci-dessous ; je lance ma macro avec de longues boucles, mais quand j'appui sur les touches PgUp ou PgDown rien ne se passe.

Voilà ce que c'est quand on est un petit bricoleur qui pompe de petit fragment de code sans rien comprendre en profondeur, mais j'ai 63 ans et j'ai commencé sur Basic.

Merci pour votre aide.

Citation:

Sub Détection()
'
' Détection Macro
'
' Touche de raccourci du clavier: Ctrl+Shift+T
'
Application.OnKey "{PGDN}", "PgDn_Sub"
Application.OnKey "{PGUP}", "PgUp_Sub"

For i = 1 To 1000000

For j = 1 To 1000000

Next j

Next i

Sheets("Feuil1").Cells(5, 4) = "Fin"

End Sub
Sub PgDn_Sub()
On Error Resume Next
Sheets("Feuil1").Cells(3, 4) = "Down"
End Sub
Sub PgUp_Sub()
On Error Resume Next
Sheets("Feuil1").Cells(3, 4) = "Up"
End Sub
02/03/2023, 09h51
Tête de chat

Bonjour,

peut-être un pb d'interprétation de ce que fait "onkey".

Onkey permet d'affecter un sub à une touche. Cette affectation une porté globale (Excel, donc dans tous les classeurs ouverts) et est permanente (jusqu'à ce que tu relances Excel).

Donc d'une part Détection devrait plutôt s'appeler Affectation. en effet il n'ouvre pas une phase de détection mais positionne l'affectation des macros sur les touches.

D'autre part la longue boucle dans ce sub est contre-productive ; pendant qu'elle tourne Excel ne scrute pas le clavier, donc pendant que cette boucle tourne il ne se passera rien.

Par contre une fois le sub exécuté, l'affectation des macros aux touches est bien faite (en tout cas chez moi) et on a bien l'appel des deux sub pgup/dn.
02/03/2023, 17h30
La Rascasse

Réponse "Onkey"

Citation:

Envoyé par Tête de chat

Bonjour,

peut-être un pb d'interprétation de ce que fait "onkey".

Onkey permet d'affecter un sub à une touche. Cette affectation une porté globale (Excel, donc dans tous les classeurs ouverts) et est permanente (jusqu'à ce que tu relances Excel).

Donc d'une part Détection devrait plutôt s'appeler Affectation. en effet il n'ouvre pas une phase de détection mais positionne l'affectation des macros sur les touches.

D'autre part la longue boucle dans ce sub est contre-productive ; pendant qu'elle tourne Excel ne scrute pas le clavier, donc pendant que cette boucle tourne il ne se passera rien.

Par contre une fois le sub exécuté, l'affectation des macros aux touches est bien faite (en tout cas chez moi) et on a bien l'appel des deux sub pgup/dn.

Bonjour,
Merci pour ton aide. Effectivement, Onkey n'est pas adapté à mon besoin. J'ai d'autres pistes alors je ne vais pas clore la discussion pour l'instant.
La longue boucle semble contre productive mais simule mon véritable besoin.
Encore merci et peut-être à bientôt si le sujet t'intéresse.
02/03/2023, 21h17
laurent_ott

Bonjour,
Il faudrait essayer de mettre l'instruction DoEvents au cœur de la boucle.
Ça permet de ''lire'' les interventions clavier (et autres interruptions), mais les traitements sont un peu plus longs.
Du coup la touche Echap sera interprétée comme un arrêt du code et vous proposera de terminer ou de corriger le code.
À tester...
Bonne continuation.

Hello,
pour que la boucle ne prenne pas trop de temps CPU, il est préférable de mettre une petite temporisation dans la boucle.
Voici un exemple de boucle infinie qui teste si la touche flèche vers le bas est appuyée avec dans la boucle une temporisation de 20 ms :

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
 
#If VBA7 Then
'For 64-Bit versions of Excel
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
Public Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
#Else
'For 32-Bit versions of Excel
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Declare Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Integer
#End If
Private Const VK_DOWN = &H28 'DOWN ARROW key
 
Sub TestBoucle()
Do While True
    DoEvents
    If IsKeyPressed Then Exit Do
    Sleep 20
Loop
End Sub
 
Function IsKeyPressed() As Boolean
  IsKeyPressed = False
  If GetAsyncKeyState(VK_DOWN) <> 0 Then
    OnDownKey
    IsKeyPressed = True
  End If
End Function
 
 
Sub OnDownKey()
  MsgBox "Touche appuyée"
End Sub

Ami calmant, J.P

03/03/2023, 10h26
Raccourcix

Citation:

Envoyé par La Rascasse

Je travaille sur une macro qui fait des calculs et qui tourne longtemps (> 6heures)

Bonjour

Pour ma part, je me poserai la question de la pertinence de conserver une macro qui prend plus de 6h !

Hier encore, j'ai été contacté par un collègue qui utilise depuis des années une macro s'exécutant en 5 mn.
Il ne m'a pas fallu 20 mn pour mettre en place des requêtes Power Query qui renvoient le même résultat en 10 à 15 secondes ! 20 à 30 fois plus rapide.

Je me rappelle d'une macro qui traitait ligne à ligne des fichiers de centaines de milliers de lignes avec des copiés/collés, des formules...
Les collègues la lançaient avant de partir déjeuner, ce n'était pas fini quand ils revenaient une heure après.

J'ai mis en place un traitement par Power Query qui prend 2 minutes maximum avec beaucoup plus de règles de gestion pour traiter certaines exceptions qui étaient historiquement modifiées à la main directement dans la base.

Pour les "calculs", il y a d'autres solutions que VBA

Stéphane