Arrêter Application.Ontime et Call
Bonsoir,
Dans un Module j'ai ce code qui me permet d'exécuter la macro Methode3 à intervalle régulier nommé ici DansDeltat
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
Sub CopieReguliere()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
If h = 0 Then
resultat = InputBox("Delta t, (en secondes)", "Def delta t") 'La variable reçoit la valeur entrée dans l'InputBox
If resultat <> "" Then 'Si la valeur est différente de "" on affiche le résultat
End If
Else
End If
h = h + 1
DansDeltat = TimeSerial(Hour(Time), Minute(Time), Second(Time) + resultat)
Application.OnTime DansDeltat, "CopieReguliere"
Call Methode3
End Sub |
Je souhaiterai arrêter cette procédure proprement mais je ne vois pas comment faire. Je suis obligé d'aller dans l'éditeur et d'arrêter manuellement le code. Et encore, même après avoir reset, l'InputBox apparaît encore au bout du temps DansDeltat.
Quelqu'un aurait-il une piste?
Merci beaucoup.
Sankae.
