Bonjour,
J'utilise deux fonctions d'user32 dans un userform
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Declare Function SetTimer Lib "user32" (ByVal ghwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Le timer est lancé par la ligne

Code : Sélectionner tout - Visualiser dans une fenêtre à part
khwnd = SetTimer(ghwnd, 0, 1, AddressOf97("GetPressedKey"))
Là, ça marche.

Quant à la seconde censée l'arrêter...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Declare Function KillTimer Lib "user32" (ByVal khwnd As Long, ByVal nIDEvent As Long) As Long
... lancée par la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
    KillTimer khwnd, 0
... reste inopérant
(ghwnd et khwnd sont déclarés en public dans un module)

Si quelqu'un a la solution pour que ça fonctionne, il aura droit à ma reconnaissance éternelle (si si !)

Donc, d'avance, merci

A+

NB - Même s'il ne marche pas mieux que les autres, le code ci-dessus est celui qui m'a semblé le plus cohérent de mes nombreux essais...