Discussion :

[ouskel'n'or]

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...

[DarkVader]

exemple

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
Public Declare Function SetTimer Lib "user32" (ByVal ghwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal kHwnd As Long, ByVal nIDEvent As Long) As Long
 
Public kHwnd As Long
 
 
 
 
 
Sub TimerActivate()
    kHwnd = Application.Hwnd
    If SetTimer(kHwnd, 0, 1, AddressOf testTimer) Then MsgBox kHwnd
End Sub
 
 
 
Sub TimerDeactivate()
    KillTimer kHwnd, 0
End Sub
 Sub testTimer()
    [Feuil1!A1] = Format(Now, "hh:mm:ss")
 End Sub