Discussion :

[MichaSarah]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wilfried_42]

bonjour

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

à te lire

[MichaSarah]

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

[Invité]

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

[wilfried_42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[MichaSarah]

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

MichaSarah

[fllyann]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.ScreenUpdating = False

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

Voilà bon courage