Bonjour,
Voici ce que tu peux faire :
1 bouton pour Demarrer le timer ( qui boucle )
1 bouton pour le stop
le timer se définit dans un module ( Insertion / module )
voici le code :
----------------------------------------
- Pour le module
-------------------
Dim Lheure As Double
Dim Interval As Integer
Sub LancerTimer(NbM As Integer)
'L'application ExecutionTimer se lancera toutes les 0 heure, 0 minute et Interval seconde
Interval = NbM
Application.OnTime Now + TimeSerial(0, Interval, 0), "ExecutionTimer"
End Sub
Sub ArretTimer()
On Error Resume Next
Application.OnTime Lheure, "ExecutionTimer", , False
End Sub
Sub ExecutionTimer()
'code à exécuter à la fin de chaque Interval
Worksheets(1).PrintOut
Worksheets("Feuil1").Copy after:=Worksheets("Feuil1")
'code obligatoire
Lheure = Now + TimeSerial(0, Interval, 0)
Application.OnTime Lheure, "ExecutionTimer"
End Sub
- Pour la définition des clicks
-----------------------------------
Private Sub CommandButton1_Click()
' Ici on définit un interval de 30 minutes
LancerTimer (30)
End Sub
Private Sub CommandButton2_Click()
ArretTimer
End Sub
---------------------------------------------
Ca devrait t'aider ...
A+