AnnulerCalculPendantMacro

Bonjour,

Essaye avec ceci ...


APPLICATION.Calculation = xlManual

Si tu souhaites forcer le calcul à un moment tu as la commande calculate.


pour remettre le calcul automatique tu utiliseras :

APPLICATION.Calculation =xlCalculationAutomatic

Salut laurent !

Merci de ta réponse rapide.

En fait, cela marche bien, mais ne rend pas plus rapide la macro.

Pas très logique, je sais.J'ai fait des tests sur 1000 lignes à deleter.

Peut-être que sur 3 ou 4 mille, il y aurait une diff.Je referai des tests.

@ +

Merci encore et bonne journée.

Moa

Essaye de rajputer :
Application.EnableEvents = False
ce qui te permet de supprimer toute procédure événementielle.

Surtout n'oublies pas de restaurer avec :
Application.EnableEvents = true...

Bon voilà, j'ai fait des tests précis Chrono en main sur plusieurs éssai.

Sur 2432 lignes, il fallait en deleter 720

1) Sans Application.EnableEvents = False et Sans APPLICATION.Calculation = xlManual

Temps mis : 4' 09"

2) Avec Application.EnableEvents = False et Sans APPLICATION.Calculation = xlManual

Temps mis : 4' 00"

3) Sans Application.EnableEvents = False et Avec APPLICATION.Calculation = xlManual

Temps mis : 2' 39"

4)Avec Application.EnableEvents = False et Avec APPLICATION.Calculation = xlManual

Temps mis : 2' 39"

Voilà...!!! héhé

@ + et merci encore mon petit Laurent

Moa