[VBA-E] Macro tres longue

Version imprimable

22/10/2006, 10h26
zouille

[VBA-E] Macro tres longue

salut a tous

voila , suite a votre aide ds le forum , on m'a proposer cettte macro qui fonctionne bien ( correspond a mes attentes) mais elle est tres longue ( environ 20 a 30 seconde dans le projet final)

Le but etant de remplire un listbox en fonction du statut du personnel
Dans feuil 1 , j'ai une liste de nom avec le statut "PAYE" ou rien
Le probleme est que qd je demarre cette macro , je vois la macro , selectionner les noms dans la collone B un par un et une fois terminé , le listbox , s'affiche corectement.

Idem , si je valide un payement avec le Bouton " PAYEMENT" qui entraine une initialisation du listbox.

Qqun a une idée ???
merci a vous
22/10/2006, 10h48
ouskel'n'or

Au début de ta macro, mets

Code:

Application.screenupdating = false

et avant End sub

Code:

Application.screenupdating = True
22/10/2006, 15h29
zouille

Citation:

Envoyé par ouskel'n'or

Au début de ta macro, mets

Code:

Application.screenupdating = false

et avant End sub

Code:

Application.screenupdating = True

Salut a toi et merci de ton aide

En fait quel est le probleme concernant la lenteur de la macro ?
A quoi correspond "screenupdating" et faut il que je le colle ds l'action du bouton ou dans le module ( car la fonction se trouve ds un modul)

Serait il plus simple de mettre la fonction directement dans le code du USF en ajoutant ton code ?

Grand merci a toi
22/10/2006, 16h10
plegat

Citation:

Envoyé par zouille

En fait quel est le probleme concernant la lenteur de la macro ?

La mise à jour de l'affichage du classeur prend énoooooooormément de temps... c'est cela qui ralentit ta macro.

Citation:

Envoyé par zouille

A quoi correspond "screenupdating"

"screenupdating"="mise à jour de l'écran"
Si tu le passes à false, il n'y a plus de mise à jour de faite, l'écran reste figé. La macro ne perd plus de temps, elle va beaucoup plus vite.

Citation:

Envoyé par zouille

et faut il que je le colle ds l'action du bouton ou dans le module ( car la fonction se trouve ds un modul)

Tu encadres la portion de code qui fait des changements de pages en pagaille... avec un =false au début, et un =true à la fin

Citation:

Envoyé par zouille

Serait il plus simple de mettre la fonction directement dans le code du USF en ajoutant ton code ?

Euh... est-ce plus compliqué de la laisser là où elle est???
En plus, il vaut mieux séparer le traitement du classeur de l'interface graphique, donc laisse les séparés...
22/10/2006, 19h09
ouskel'n'or

Merci plegat, grâce à toi j'ai pu aller aux champignons :mouarf:
22/10/2006, 19h31
plegat

Citation:

Envoyé par ouskel'n'or

Merci plegat, grâce à toi j'ai pu aller aux champignons :mouarf:

Ne me parle pas de champignons!!! J'en ai mangé toute la semaine, je frôle l'indigestion! :mrgreen:
23/10/2006, 10h08
ouskel'n'or

J'ai l'impression que zouille s'est perdu dans la forêt ;)
27/10/2006, 23h04
zouille

Citation:

Envoyé par ouskel'n'or

J'ai l'impression que zouille s'est perdu dans la forêt ;)

Non je ne suis pas perdu , ca va ,mais je ne suis pas present tout les jours a la maison ( c 'est ca l'armee)

Encore merci a vous , ca fonctionne bien par contre j'avais remarqué que la macro etait longue uniquement qd j'etait sous VISUAL BASIC EDITOR sinon en normal c'est rapide : étrange !,!
28/10/2006, 11h22
plegat

Citation:

Envoyé par zouille

Encore merci a vous , ca fonctionne bien par contre j'avais remarqué que la macro etait longue uniquement qd j'etait sous VISUAL BASIC EDITOR sinon en normal c'est rapide : étrange !,!

Ca me le fait tout le temps... mais je n'ai pas l'explication.
Cela dit, l'éditeur n'a à être ouvert que quand tu programmes, et quand tu débuggues... ensuite, en exécution normale, il n'a aucune raison d'être ouvert.
28/10/2006, 16h19
zouille

Citation:

Envoyé par plegat

Ca me le fait tout le temps... mais je n'ai pas l'explication.
Cela dit, l'éditeur n'a à être ouvert que quand tu programmes, et quand tu débuggues... ensuite, en exécution normale, il n'a aucune raison d'être ouvert.

Tout a fait d'accord avec toi
Je suis aussi surpris de cette lenteur mais bon , c'est juste pendant la prog ou débug.

Par contre sur mon ordi ( a la maison) ca ram meme sans l editeur ouvert

je joint mon fichier pour que vous fassiez un test de chez vous

merci a toi
28/10/2006, 16h47
dadavyvy
En fait cela vient de tes formules utilisant RECHERCHEV.
Mets au début de ta macro :

Code:

Application.Calculation = xlCalculationManual

Et à la fin :
Code:

1 2 Application.Calculation = xlCalculationAutomatic Application.Calculate
Même si ces formules ne sont pas liées à la feuille dans laquelle tu colles tes valeurs, Excel ressent quand même l'envie de faire le recalcul...
28/10/2006, 18h53
zouille
Citation:
Envoyé par dadavyvy

En fait cela vient de tes formules utilisant RECHERCHEV.
Mets au début de ta macro :

Code:

Application.Calculation = xlCalculationManual

Et à la fin :

Code:

1 2 Application.Calculation = xlCalculationAutomatic Application.Calculate

Même si ces formules ne sont pas liées à la feuille dans laquelle tu colles tes valeurs, Excel ressent quand même l'envie de faire le recalcul...
SUPER COOL
enfin ca marche , merci bien a toi
maintenant ca met 2 a 3 secondes max :

Par contre selon les conseils de ouskel'n'or, dois je ajouter : Application.screenupdating =false

Excel est vraiment etrange qq fois
MERCI encore

ps : Vois tu des choses inutiles ou plus simple a ecrire dans mon projet ( histoire d'etre moins lourd et plus rapide)
28/10/2006, 19h02
ouskel'n'or

Citation:

Application.screenupdating =false

ne ralentit en aucun cas le programme et a des chances de l'accélérer, alors mets le sur la première ligne de ta macro et ôte-le sur la dernière ligne ;)
Je suis juste revenu pour te dire ça puisque c'est résolu... :mouarf:
28/10/2006, 21h10
zouille

merci a toi