Sub CyclesUpdate()
'===DECLARATION DES VARIABLES====>
Dim Chrono, Start, Durée, NbCycles
Feuil1.Activate
NbCycles = [A2] 'nombre de cycles mentionné en A2
Durée = [A4] 'nombre de secondes
'+++++++++++++++++++++++++++++++++++
'AVEC====ONTIME====>
Chrono = Now + TimeValue("00:00:" & Durée)
Application.OnTime Chrono, "Extract"
'VOIR REMARQUE SUR PROCEDURE EXTRACT
'+++++++++++++++++++++++++++++++++++
'AVEC====TIMER====>
'For i = 1 To NbCycles
' Start = Timer
' Do While Timer < Start + Durée
' DoEvents
' 'Vide oui je sais, ça fait gros bricolage
' Loop
'Extract
'Next
'+++++++++++++++++++++++++++++++++++
'AVEC====WAIT====>
'For i = 1 To NbCycles
' If Application.Wait(Now + TimeValue("00:00:" & Durée)) Then
' DoEvents
' Extract
' End If
'Next
'L'inconvénient de WAIT est que l'appli est bloquée durant WAIT
'+++++++++++++++++++++++++++++++++++
End Sub
Sub Extract()
Feuil1.Activate
ActiveWorkbook.RefreshAll
Range("C7:D29").Select
Selection.Copy
Feuil2.Activate
Feuil2.[A65536].End(xlUp)(2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
'RAJOUTER AVEC===ONTIME====>
'CyclesUpdate
'++++MAIS LA BOUCLE NE S'ARRÊTE PAS++++
End Sub