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 ?

[Zebulon777]

Bon en fait j'ai trouvé : en cours de développement, il faut fermer Excel de temps en temps et tout revient à la normal.

Encore le bug de libération de la mémoire, je pense.

Bref, passons à autre chose...

[patricktoulon]

bonjour

c'est bien ce que je pensais il ne se rafraichit pas

utilisation de variables non fermées (nothing ou "")ect...
pour peu qu'il y ai eu un incident comme je te l'ai expliqué plus haut
sache que ce fichier si c'est le cas aura toujours des problèmes

au plaisir

[Pierre Fauconnier]

Salut.

Ton fichier Excel dans lequel tu écris est-il vide?

sinon, le calcul automatique pourrait ralentir l'insertion des données, ainsi que le screenupdating.

De plus, tu n'es pas obligé de sélectionner la feuille de log pour écrire dedans. Sélectionner ta feuille LOG puis partir de la cellule active est à mon sens délicat, car il faudrait être certain que Activecell est la bonne à tous les coups, ce qui n'est pas gagné.

Tu aurais donc intérêt à retravailler ton code en :

• plaçant des lignes qui désactivent le calcul (si ton fichier contient des formules) ;
• en désactivant le rafraîchissement d'écran ;
• en ne sélectionnant pas la feuille LOG pour écrire dedans ;
• en partant d'une cellule connue de cette feuille, en général A1 pour ce genre de cas ;
• en gérant les erreurs pour replacer le calcul et le rafraîchissement d'écran avant la sortie de sub.