Discussion :

[Sankae]

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.

[Ben_L]

Bonjour,

Pour empêcher la prochaine exécution de la procédure, ajoute un bouton et attribue y le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.OnTime DansDeltat, "CopieReguliere", schedule:= False

La variable DansDeltat doit être globale pour être accessible.

Cdt

[Sankae]

Merci beaucoup, ça marche sans problème!

Résolu!