Accélerer un compteur Excel/VBA

**PedroBD** · 21/06/2006, 07h53

Bonjour,

J'ai programmé en VBA un compteur qui se décompose sur 3 cellules:

0000 0000 0000

H1 H2 H3

Pour chaque occurrence de ce compteur, je fais des tests dans d'autres cellules, et pour chacun de ces tests, j'affiche V ou F dans d'autres cellules en fonction du résultat.

Pb: Le compteur met trop de temps, imaginez le temps qu'il me faudrait pour aller à 9999 9999 9999!

Comment faire pour l'accélérer. L'idéal serait qu'il puisse atteindre la valeur finale (9999 9999 9999) dans la journée. Je pense que c'est de la vitesse du proc que cela dépend, mais plutôt du temps d'éxécution d'Excel!

Est-ce qu'il faut que je passe à un autre langage? Le truc c'est que je voudrais conserver mon tableau Excel!

Merci de votre aide

P.S: Je débute en VBA, si vous pouviez me donner des détails dans votre réponse, je vous remercie!

**random** · 21/06/2006, 08h07

si tu pars ainsi ce n'est pas simplifiable
il y a 10^12 combinaisons
ce qui est assez lourd

deux solutions
faire monter tes cellules dans un array et travailler sur cet array ce qui sera plus rapide en masquant excel

mais tu dois pouvoir trouver mieux
il y a certainement des solutions pour trouver les valeurs correctes par programmation linéaire par exemple

**PedroBD** · 21/06/2006, 08h33

Envoyé par random

si tu pars ainsi ce n'est pas simplifiable
il y a 10^12 combinaisons
ce qui est assez lourd

Merci de ta réponse

Envoyé par random

deux solutions
faire monter tes cellules dans un array et travailler sur cet array ce qui sera plus rapide en masquant excel

Je suis pas un pro du VBA, comment tu fais pour monter des cellules dans un array?

Envoyé par random

mais tu dois pouvoir trouver mieux
il y a certainement des solutions pour trouver les valeurs correctes par programmation linéaire par exemple

Tu veux dire importer un objet ActiveX ou autre qui aurait été programmé séparémment?

**Blunet** · 22/06/2006, 18h01

Salut Pedro,
Effectivement la vitesse de l'exécution de ta macro va dépendre de la mémoire de ta machine RAM.
Je suppose que tu utilises une structure répétitive comme les boucles... Alors tu comprends qu'en changeant simplement d'environnement le problème reste le même car, il s'agit de la machine et non des spécificités d'un langage sur un autre.

Ciao

**PedroBD** · 25/06/2006, 15h22

Envoyé par Blunet

Salut Pedro,
Effectivement la vitesse de l'exécution de ta macro va dépendre de la mémoire de ta machine RAM.
Je suppose que tu utilises une structure répétitive comme les boucles... Alors tu comprends qu'en changeant simplement d'environnement le problème reste le même car, il s'agit de la machine et non des spécificités d'un langage sur un autre.

Ciao

En fait j'ai testé le truc sur un bi proc et ça fait la même chose; mais c'est vrai que la machine avait que 512 de RAM. Tu penses que sur une machine qui a 1Go ça peut aller plus vite?

**Geoffray** · 25/06/2006, 19h58

Bonjour,

Je ne sais pas si tu as besoin de voir le chrono évoluer à l'écran ou non si tel n'est pas le cas je te conseille de placer ce code au début de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.ScreenUpdating = False

puis à la fin de ta macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.ScreenUpdating = True

Pour te donner un exemple cette macro met environ 1 seconde contre 10 secondes si je ne bloque pas le rafraichissement de l'écran.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub test()
 
 
Application.ScreenUpdating = False
 
 
TimeDebut = Time
 
For l = 1 To 30000
     Range("A1").Value = l
Next l
 
TimeFin = Time
 
[D1] = TimeFin - TimeDebut
 
Application.ScreenUpdating = True
 
End Sub

Geoffray

**PedroBD** · 26/06/2006, 09h17

Envoyé par Geoffray

Bonjour,

Je ne sais pas si tu as besoin de voir le chrono évoluer à l'écran ou non si tel n'est pas le cas je te conseille de placer ce code au début de ton code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.ScreenUpdating = False

puis à la fin de ta macro

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.ScreenUpdating = True

Pour te donner un exemple cette macro met environ 1 seconde contre 10 secondes si je ne bloque pas le rafraichissement de l'écran.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub test()
 
 
Application.ScreenUpdating = False
 
 
TimeDebut = Time
 
For l = 1 To 30000
     Range("A1").Value = l
Next l
 
TimeFin = Time
 
[D1] = TimeFin - TimeDebut
 
Application.ScreenUpdating = True
 
End Sub

Geoffray

Merci du truc, je vais tester tout de suite!

**Commodore** · 26/06/2006, 12h52

Avec cette solution tu ne verras pas ton compteur s'incrémenter. d'ailleurs, ton écran sera gelé jusqu'à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = True

.

Donc sois bien sûr que ton code fonctionne avant de faire ça.

Juste au cas où... (plantage?)
Tu peux faire du "pas à pas" dans ton prog en appuyant sur F8 pour chaque ligne de code à éxécuter. Si ton prog plante utilise F8 sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = True

pour réactiver le rafraichissement de l'écran.

Bon courage

**PedroBD** · 26/06/2006, 17h10

Envoyé par Commodore_Psykopate

Avec cette solution tu ne verras pas ton compteur s'incrémenter. d'ailleurs, ton écran sera gelé jusqu'à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = True

.

Donc sois bien sûr que ton code fonctionne avant de faire ça.

Juste au cas où... (plantage?)
Tu peux faire du "pas à pas" dans ton prog en appuyant sur F8 pour chaque ligne de code à éxécuter. Si ton prog plante utilise F8 sur la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = True

pour réactiver le rafraichissement de l'écran.

Bon courage

Je vous remercie de vos réponses. J'ai lancé mon compteur avec le contrôle du rafraîchissement de l'écran. Je pense avoir gagné un peu, mais c'est quand même toujours lent. Y a pas un autre truc pour vraiment faire en sorte que le compteur aille super vite?

**Geoffray** · 26/06/2006, 18h12

Il faudrait plus d'une vie pour compter jusque là.
Mais c'est vrai que l'on recherche tous la vitesse

Le gel de l'écran doit malgé tout te faire gagner un temps fou.

Peut être que ton fichier est confidentiel ? Si ca n'est pas le cas je t'invite à nous le mettre en lien et à nous donner plus de détail sur le résultat escompté. Tu peux éventuellement falsifier les données.
Ce que j'ai du mal à comprendre c'est pourquoi 3 compteurs au lieu d'un seul. Je suppose que tu dois avoir plus d'une boucle dans ta macro ce qui doit ralentir le calcul.

Mon pc (P4 3.4 avec 1 giga de ram) met 1 minute pour compter jusqu'à 1 000 000 avec gel de l'écran, soit dans ton cas (99 999 9999 999) 16 667 heures si je sais encore compter !!

Geoffray

Ps: j'aimerai pas être à la place de ton pc, il va y laisser un poumon

**jmfmarques** · 26/06/2006, 19h19

Je ne crois pas que le compteur soit le vrai responsable de cette lenteur...
Ce seraient plutôt, à mon avis, les calculs qu'il effectue à chaque incrémentation.
Dire "comment accélérer le compteur" n'est dans de telles conditions pas l'expression qui convient.

Si tu penses que c'est l'affichage du compteur qu'il convient de reconsidérer, ma foi, il te suffit de ne le mettre à jour (l'affichage), que toutes les n occurences.

Si par contre les lenteurs sont générées par tes calculs à chaque occurence, le fait de ne pas activer l'affichage pendant les calculs est une bonne chose. Si cela ne suffit pas, il peut être essayé d'agiliser tes calculs (encore faudrait-il voir ce qu'ils sont et comment ils sont faits).

**PedroBD** · 26/06/2006, 20h19

Envoyé par jmfmarques

Je ne crois pas que le compteur soit le vrai responsable de cette lenteur...
Ce seraient plutôt, à mon avis, les calculs qu'il effectue à chaque incrémentation.
Dire "comment accélérer le compteur" n'est dans de telles conditions pas l'expression qui convient.

Si tu penses que c'est l'affichage du compteur qu'il convient de reconsidérer, ma foi, il te suffit de ne le mettre à jour (l'affichage), que toutes les n occurences.

Si par contre les lenteurs sont générées par tes calculs à chaque occurence, le fait de ne pas activer l'affichage pendant les calculs est une bonne chose. Si cela ne suffit pas, il peut être essayé d'agiliser tes calculs (encore faudrait-il voir ce qu'ils sont et comment ils sont faits).

C'est cool les gars, merci de vos réponses. Effectivement, je ne peux pas mettre en ligne mon tableau, mais je vais quand même vous mettre un truc factice dans la semaine. Etant donné que je fais pleins de calculs, c'est très possible que ce soit ça qui ralentisse tout, n'empêche que sans rafraîchir automatiquement, je divise par 5 le temps, mais j'ai un autre pb, à savoir que je ne conserve plus les valeurs en mémoire; autrement dit, à chaque fois que j'affiche, j'ai perdu les données précédentes. Je sais pas encore où ça vient...

Je vous mets en ligne un aperçu de mon tableau.

Merci à tous!

**plegat** · 26/06/2006, 20h44

Tu as tout plein d'astuces pour gagner en rapidité, du style éviter de faire des select sur des cellules, utiliser des variables pour travailler sur les feuilles plutôt que faire des feuil1.activate... feuil2.activate... , travailler sur des tableaux de valeurs initialisé avec une plage de cellules au lieu d'itérer sur toutes les cellules de la plage, utiliser cells plutôt que range...

Mais bon, ça reste du vba excel, tu vas y passer un certain temps quand même pour aller au bout de ton compteur...

**Commodore** · 27/06/2006, 09h16

le mieux serait de trouver un algo plus rapide...
=> direction forum algo

**Blunet** · 27/06/2006, 12h24

Salut le fil, juste pour continuer sur les dernière propositions...
Peut être faut envisager la ré écriture de l'algo dans ce cas utiliser peut être des variables tableaux. L'inconvénient est qu'il te faudra plus d'espace par contre moins de temps...

**Geoffray** · 27/06/2006, 19h12

...., utiliser cells plutôt que range...

Je savais pas. Ca accélère vraiment le code ?

**plegat** · 27/06/2006, 20h02

Envoyé par Geoffray

Je savais pas. Ca accélère vraiment le code ?

Oui.
Je ne saurais te dire de combien, j'avais fait le test il y a quelques temps (suite à une remarque de Bidou dans un autre post), et on gagnait un peu.
Ca s'apprécie surtout sur les boucles nombreuses, avec l'itération sur la ligne et/ou la colonne du cells... en prime, c'est plus simple à utiliser, ça évite de magouiller un range ou un range + offset !

**PedroBD** · 12/07/2006, 09h39

Envoyé par plegat

Oui.
Je ne saurais te dire de combien, j'avais fait le test il y a quelques temps (suite à une remarque de Bidou dans un autre post), et on gagnait un peu.
Ca s'apprécie surtout sur les boucles nombreuses, avec l'itération sur la ligne et/ou la colonne du cells... en prime, c'est plus simple à utiliser, ça évite de magouiller un range ou un range + offset !

Ca vous dit pas que je vous envoie le fichier du compteur sur un mail pv? Vous pourrez me dire plus facilement ce que vous en pensez?

Accélerer un compteur Excel/VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager