Bonjour,
Voici une partie du code que j'utilise dans un ficher MS-Excel 2003. Dès que la procédure est lancée, le gestionnaire des tâches (sous windows XP) m'indique que l'utilisation CPU passe de 2% à 26% environ. Y-a-t-il un moyen pour réduire l'utilisation CPU? Merci pour vos suggestions.
Code :
- Sub test0Loop()
- Dim t As Date, iloop As Integer
- 'Main loop
- iloop = 1
- Do While (iloop < 3 And "stop" <> Range("E5" ).value)
- 'Every 10 sec ...
- t = Timer + 10: Do Until (Timer > t Or "stop" = Range("E5" ).value): DoEvents: Loop
- ' ... do whatever need to be done
- MsgBox "test"
- iloop = iloop + 1
- Loop
- End Sub
|
Message édité par bigbang01 le 07-07-2009 à 16:52:11