Accélération boucle

[Guigui]

Bonjour,

J'ai besoin de votre aide pour rendre plus "rapide" un code proposé par un utilisateur du forum (CHALET53, que je remercie une fois encore !)
Cependant nous n'arrivons pas a accélérer le programme.
Mon fichier original contient jusqu'a 1500 lignes (voir plus) et en utilisant un timer, il a fallu 11min pour traiter les infos...

Si un de vous à une idée, une proposition ?

En PJ, un fichier exemple avec le code de CHALET53 et un autre modifié pour utiliser un tab dans le code.

Le but du code est regrouper les dates consécutives pour un même agent dés lors que son "code absence" est le même.

Merci par avance pour votre aide

 

[Guigui]

Re : Accélération boucle

Re,

Coup de théatre...
Je viens de rajouter 2 lignes de code "au hasard" et miracle mon timer m'affiche 1sec pour le traitement de 1100 lignes !
Par contre je ne comprend pas le pourquoi du comment.

J'ai rajouter en début de code

Application.Calculation = xlManual

et en fin de code

Application.Calculation = xlAutomatic

Pour moi ce code met en manuel le calcul des formules (?) donc je ne comprend pas l'incidence ... vu qu'il n'y a pas de formule mais que du code ...

Avez vous une explication ?
Est-ce une solution correct selon vous ?