timer

[Ed]

bonjour j'ai un soucis avec le timer d'excel,
je voudrais executer une opération (un addition pour commencer=) toute les deux secondes
mais une fois le timer lancé, il effectu l'addition autan de fois qu'il le peut
ainsi avec ce code je devrais obtenir 5 dans la cellule A1 mais j'obtien en moyenne 3700 ... ce qui est un peu genant
merci d'avance


Dim start, stoptime As Integer

Dim done As Boolean

Public Sub test_timer()
start = Timer
stoptime = 10
done = False
Do While Timer < start + stoptime
If ((Timer Mod 2 = 0) And (Not done)) Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
DoEvents
done = True
Else
done = False
DoEvents
End If
Loop
End Sub

 

[sousou]

Bonjour ED
J'ai corrigé ta procedure en rajoutant un if timer mode 2.

En effet une fois le résultat de mode= à 0 tu positionne un flag vrai,
mais le coups suivant tu le repositionne à false.
N'oubli pas que le résultat de mod 2 est égal à 0 pendant une seconde!
Il s'en passe des choses en une seconde !

Dans tous les cas tu dois pouvoir faire plus simple.

Dim start, stoptime As Integer

Dim done As Boolean

Public Sub test_timer()
start = Timer
stoptime = 10
done = False
Do While Timer < start + stoptime

If ((Timer Mod 2 = 0) And (Not done)) Then
Cells(1, 1).Value = Cells(1, 1).Value + 1
DoEvents
done = True
Else
If Timer Mod 2 <> 0 Then done = False
DoEvents
End If
Loop
End Sub

 

[sousou]

Par exemlpe:

Public Sub test_timer()
start = Timer
stoptime = 10
While Timer < start + stoptime
deb = Timer
While Timer < deb + 2
Wend
Cells(1, 1).Value = Cells(1, 1).Value + 1
Wend

D'autres solutions avec on time

 

[Ed]

merci sousou pour l'aide je vais voir avec ces infos et aussi sur OnTime
A bientot