XL 2019 Code VBA pour supprimer une plage de données

[loreak]

Slt à tous,

Voici le code qui permet de supprimer les données sur des plages définies.
Je voudrais rendre mon code beaucoup plus rapide car il doit gérer pas mal de données. Le problème étant que celui-ci met environ 3 min pour s'exécuter.

Merci d'avance pour vos réponde

Loreak

 

[job75]

Bonjour loreak,

Si votre code met du temps à s'exécuter c'est certainement parce que des formules se recalculent.

Ajoutez donc en début de macro :

Application.Calculation = xlCalculationManual

et en fin de macro :

Application.Calculation = xlCalculationAutomatic

Par ailleurs tout effacer en même temps est plus rapide :

Range("A2:A1099,E2:E1099,H2:KM1099,KO2:KQ1099").ClearContents

A+

 

[D.D.]

Bonjour,

Le code me parait déjà assez concis.
Peut être mettre au début:

Application.ScreenUpdating = False
Application.Calculate = xlCalculationManual

et à la fin:

Application.ScreenUpdating = True
Application.Calculate = xlCalculationAutomatic

PS: "Vous avez entré"

 

[loreak]

Merci pour vos réponses,

Je suis obligé de mettre
Application.Calculate = xlCalculationAutomatic a la fin de mon code (quelles conséquences y peut y avoir)

 

[D.D.]

Le classeur est en mode de calcul manuel. Les formules ne vont pas se mettre à jour.

 

[loreak]

ok parfait

merci et a+