Bonsoir,

Dans un Module j'ai ce code qui me permet d'exécuter la macro Methode3 à intervalle régulier nommé ici DansDeltat

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