Optimisation d'une macro lente

Version imprimable

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:

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 ?

05/12/2012, 11h59
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
05/12/2012, 12h29
Ariaar

petite optimisation
Bonjour,

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

1 2 WDerniereLigne = ActiveCell.SpecialCells(xlLastCell).Row WDerniereLigne = WDerniereLigne + 1
Que tu pourrais fusionner:

Code:

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!
05/12/2012, 13h52
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.
05/12/2012, 13h53
Ariaar

Et quels sont tes paramètres? Es-tu sûr qu'ils ne grossissent pas à chaque appel?
05/12/2012, 14h40
Oliv-

Salut,
N'est ce pas ton fichier log qui devient de plus en plus gros ? Y a-t-il entre 2 un save ?
11/12/2012, 14h14
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... ;) ;) ;)
11/12/2012, 15h14
patricktoulon

re

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
11/12/2012, 22h35
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.