[Résolu]VBA comment optimiser l'utilisation CPU dans un loop?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [Résolu]VBA comment optimiser l'utilisation CPU dans un loop?

bigbang01

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

Publicité

Deamon

Tu peux définir la priorité dans le gestionnaire des taches pour le processus mais je sais pas si ça te convient.

Message cité 1 fois

bigbang01

Deamon a écrit :

Tu peux définir la priorité dans le gestionnaire des taches pour le processus mais je sais pas si ça te convient.

Idéalement, ce que je recherche c'est remplacer la ligne 7 du code ci-dessus par une ligne de code qui consomme moins de CPU.

Message édité par bigbang01 le 06-07-2009 à 15:30:50

Deamon

En gros avec ton code tu veux réaliser une action à intervalle régulier ?

Message cité 1 fois

bigbang01

Deamon a écrit :

En gros avec ton code tu veux réaliser une action à intervalle régulier ?

Tout à fait, et pendant l'attente ne pas consommer autant de CPU...

bjone

Insert booze to continue

Google: http://www.your-save-time-and-impr [...] excel.html

Message cité 1 fois

bigbang01

bjone a écrit :

Google: http://www.your-save-time-and-impr [...] excel.html

Merci pour ta réponse bjone. Effectivement avec le code suivant, l'utilisation CPU reste à 2% mais on ne peut pas quitter la fonction sleep en cours d'exécution sauf par exemple en utilisant Ctrl + Pause.

Code :

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub test2Loop()
Dim t As Date, iloop As Integer
'Main loop
iloop = 1
Do While (iloop < 3 And "stop" <> Range("E5" ).value)
'Every 10 sec ...
Sleep 10000
' ... do whatever need to be done
MsgBox "test"
iloop = iloop + 1
Loop
End Sub

bjone

Insert booze to continue

tu sleep de 100 ou 50 ms ça suffira pour réduire drastiquement l'utilisation cpu, à toi d'ajuster le contrôle de boucle en conséquence.

Message édité par bjone le 07-07-2009 à 16:09:34

Harkonnen

Modérateur
Un modo pour les bannir tous

et un petit coup de DoEvents ça fera pas de mal

---------------
J'ai un string dans l'array (Paris Hilton)

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[Résolu]VBA comment optimiser l'utilisation CPU dans un loop?

Sujets relatifs
[Resolu]Adaptation programme Windows vers Linux	Addition toute bête en VBA (Macro Excel)
[RESOLU] Problème de vérouillage dans ma feuille excel	Convertir code C# -> VBA ou VBA -> C#
Symbole externe non résolu sous Visual	[résolu] probleme fopen : php_network_getaddresses
[Résolu]Pb trigger Mysql	Suite de test avec JUnit[résolu]
[Resolu][Asp.NET][C#] Composants COM et serveur IIS	[VBA] Msgbox, combien de lignes maximum ?
Plus de sujets relatifs à : [Résolu]VBA comment optimiser l'utilisation CPU dans un loop?

Page générée en 0.075 secondes