XL 2016 Réduire le temps d'execution

GALOUGALOU

XLDnaute Accro

• 7 Février 2020

• #2

bonsoir linebich
voulez vous réduire ce code pour accelerer une macro ?
cordialement
galougalou

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 7 Février 2020

• #3

Bonjour,

je dirais :

VB:

Range("TABF1").Borders.LineStyle = xlNone

eric

 

Vote positif 0 Vote négatif

L

linebich

Guest

• 8 Février 2020

• #4

Bonsoir ,
Grand merci les gens
résolu

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 8 Février 2020

• #5

Mais à mon avis ça raccourci plus le code que le temps... ;-)

 

Vote positif 0 Vote négatif

M

Monptipiton

Guest

• 8 Février 2020

• #6

eriiiic à dit:

Mais à mon avis ça raccourci plus le code que le temps... ;-)

Cliquez pour agrandir...

Bonsoir,

Pas d'accord. A chaque ligne de code ayant une action entraînant un rafraichissement d'écran se cumulera un ralentissement dans l'exécution de la macro. Donc une ligne s’exécutera beaucoup plus rapidement que plusieurs.

Il y a la possibilité d'intégrer application.screenupdating = false en début de code, et le repasser à true en fin de code, ça améliore nettement.

Après linebich, dans un souci d'aérer le code initial, je resterai sur With range("TABF1") plutôt que With range("TABF1").Borders (blablabla). Ça va permettre de supprimer des dizaines de lignes et d'être aussi clair sinon plus au niveau du code (mon avis). Cette façon de faire peut s'appliquer à d'autres cas 😉

 

Vote positif 0 Vote négatif

M

Monptipiton

Guest

• 8 Février 2020

• #7

Pour chronométrer une macro simplement pour faire des tests de rapidité d'exécution :
Dim Chrono as single
Chrono = Timer

Code

Chrono = Timer - Chrono
Debug.Print Chrono & " s"

 

Vote positif 0 Vote négatif

L

linebich

Guest

• 8 Février 2020

• #8

D’accord , Merci j'ai compris

 

Vote positif 0 Vote négatif