Discussion :

[zouille]

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

[ouskel'n'or]

Au début de ta macro, mets

Code :

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

Application.screenupdating = false

et avant End sub

Code :

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

Application.screenupdating = True

[zouille]

Au début de ta macro, mets

Code :

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

Application.screenupdating = false

et avant End sub

Code :

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

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

[plegat]

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.

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.

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

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...

[ouskel'n'or]

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

[plegat]

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

Ne me parle pas de champignons!!! J'en ai mangé toute la semaine, je frôle l'indigestion!

[ouskel'n'or]

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

[zouille]

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 !,!

[plegat]

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.

[zouille]

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

[dadavyvy]

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

Code :

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

Application.Calculation = xlCalculationManual

Et à la fin :

Code :

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

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...

[zouille]

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

Code :

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

Application.Calculation = xlCalculationManual

Et à la fin :

Code :

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

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)

[ouskel'n'or]

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...

[zouille]

merci a toi