Comment accélérer l'execution d'une macro

Bonjour,
Lorsque j'utilise certaines de mes macros qui traitent beaucoup de données, l'execution est longue. On m'avait conseillé d'utiliser les macros ci-dessous en début (ini_sub) et en fin (fin_sub) pour accélérer le traitement. Il y a un écart mais pas immense . De plus toutes les applications Excel ouvertes sont bloquées lorsque la macro fonctionne avec ces 2 macros supplémentaires. Existe t-il un autre moyen d'accélérer l'execution et de ne pas bloquer les autres fichiers Excel ouverts ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Sub ini_sub()   Application.DisplayAlerts = False 'messages excel Application.DisplayStatusBar = True ' info avancement macro dans barre d'infos en bas écran Application.StatusBar = "Synthèse PEPS en cours" Application.ScreenUpdating = False 'rafraichissement ecran (pour ne pas voir défiler les macros) Application.Cursor = xlWait 'sablier Application.Calculation = xlCalculationManual ' supprime calcul auto EXCEL pour gagner du temps. A remettre dans fin_sub   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Public Sub fin_sub()   Application.DisplayAlerts = True Application.StatusBar = "Synthèse OK" Application.ScreenUpdating = True 'rafrfraichissement ecran Application.Cursor = xlDefault 'sablier Application.Calculation = xlCalculationAutomatic   End Sub

---

Merci par avance
MichaSarah

bonjour

Si tu expliquais ta macro et nou la montrais peut être on aurait un moyen de te l'accélérer.

à te lire

Bonsoir wilfried_42,
En pièce jointe le fichier concerné. Après avoir rappatrié un onglet de 14000 lignes dans le fichier "SynthèsePEPS" , j'effectue des tests en fct des pgm , des années et des secteurs.
Durée : ~14 minutes sans les macros "ini", ~12 min avec les macros "ini".

Salutations
MichaSarah

Bonjour

La lenteur de ton code vient de tout les Select que tu utilises, cela ne sert à rien.

Il y a beaucoup de discussions sur le sujet :

rendre ma macro plus rapide

Philippe

re:, bonjour philippe

comme le dit philippe les select ralentissent le code. l'enregistreur de macros est très interressant mais il traduit toutes les actions manuelles qu'il faut adapter : un exemple

Code:

---

1 2 3 4 5 6

Sheets("RQ_T501_ESSAI").Select Columns("A:A").Select Selection.Copy Sheets("extract°opt").Select Columns("A:A").Select ActiveSheet.Paste

---

devient :

Code:

---

Sheets("RQ_T501_ESSAI").Range("A:A").Copy Destination:=Sheets("extract°opt").Range("A1")

---

en survolant le reste du code, il y a bien d'autres améliorations possibles mais je ne sais pas exactement ce que fait le code ou sensé donner comme résultat.
fait ces modif, ca epurera le code qui deviendra plus lisible, je pense qu'on pourra supprimer plusieurs boucles dans le futur

cordialement

Bonjour Philippe et wilfried_42,
Je teste cette semaine en supprimant plusieurs SELECT et je vous retourne le résultat.
Encore merci

MichaSarah

Bonjour,
Je ne sais pas si ça aidera mais j'ai eu un problème de macros trop longue et pour raccourcir le temps en plus de supprimer un maximum de Select, j'ai utilisé :

Code:

---

Application.ScreenUpdating = False

---

ce qui empêche la MAJ de la page Excel qui s'exécute...

Voilà bon courage

Bonjour Philippe et wilfried_42,
En supprimant les select, j'ai bien réduit le temps d'execution.
Merci beaucoup

Bonjour fllyann,
j'utilise déja cette commande dans mon code. Merci pour ton aide.

Salutations
MichaSarah