Discussion :

[Zebulon777]

Salut la compagnie,

J'ai une toute petite macro qui devient de plus en plus lent au fil du temps.
Je fais donc appel à vous pour voir s'il y a quelque chose à faire

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub EcritureLOG(P_Classeur, P_Message1, P_Message2, P_Message3, P_TypeErreur)
'Ecriture d'un message dans le feuille LOG
    WMemo_Classeur = ActiveWorkbook.Name
    WMemo_Feuille = ActiveWorkbook.ActiveSheet.Name
    Workbooks(P_Classeur).Activate
    Sheets("LOG").Select
    WDerniereLigne = ActiveCell.SpecialCells(xlLastCell).Row
    WDerniereLigne = WDerniereLigne + 1
    Cells(WDerniereLigne, 1).Value = Format(Time(), "hh:mm")
    Cells(WDerniereLigne, 2).Value = P_TypeErreur
    Cells(WDerniereLigne, 3).Value = P_Message1
    Cells(WDerniereLigne, 4).Value = P_Message2
    Cells(WDerniereLigne, 5).Value = P_Message3
    Workbooks(WMemo_Classeur).Activate
    Sheets(WMemo_Feuille).Select
End Sub

D'après ce que j'ai pu voir, c'est la partie qui remplie les cellules qui est de plus en plus lente et je ne comprends pas pourquoi ?

[patricktoulon]

bonjour

bien que je n'aurais pas fait comme ca pour moi il n'y a rien qui ralenti ton code au fur et a mesure
a mon avis ca proviens plutôt des données message que tu inscrit dans tes cellules

comment obtiens tu ces données regarde plutôt de ce coté la

au plaisir

[Ariaar]

Bonjour,

La seule optimisation que je vois est sur ces deux lignes:

Code :

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

1
2
WDerniereLigne = ActiveCell.SpecialCells(xlLastCell).Row
WDerniereLigne = WDerniereLigne + 1

Que tu pourrais fusionner:

Code :

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

WDerniereLigne = ActiveCell.SpecialCells(xlLastCell).Row + 1

Cette "optimisation" sera à peine visible, mais si ta fonction est souvent appelée, ça peut jouer. Sinon, comme le suggère patricktoulon, ça doit plutôt venir de tes données.

Bonne journée!

[Zebulon777]

Merci pour votre aide, mais les messages sont tout simplement passés en paramètres.
Je ne m'explique pas pourquoi, au fure et à mesure des exécutions, la macro ralentie de plus en plus.

[Ariaar]

Et quels sont tes paramètres? Es-tu sûr qu'ils ne grossissent pas à chaque appel?

[Oliv-]

Salut,
N'est ce pas ton fichier log qui devient de plus en plus gros ? Y a-t-il entre 2 un save ?