Augmentation temps traitement en fonction du nombre d'executions

Bonjour,

J'ai créé une macro avec plusieurs procédure fonction etc...

Lorsque je lance pour la première fois la macro, le temps d'execution est très convenable.
Si je relance une deuxième fois, le temps de traitement augmente.
Si je relance "n" fois le temps devient "n" fois plus long.

1er lancement = 5 secondes

5eme lancement = 45 secondes

Si je ferme le fichier et que je l'ouvre de nouveau, les temps de traitement repartent à zero. Puis si je relance le problème recommence.

Dans la macro je supprime des cellules (Cells.Delete) j'execute des requetes SQL, je fais diverse manipulation sur différentes feuille.

Comment faire pour "PURGER" le fichier de sorte qu'après l'execution je puisse vider la mémoire. (sans être obligé de fermer le fichier et de le rouvrir.)

Merci de votre aide.

Bonjour,

il faudrait voir le fichier avec son code.
Sinon tente avec un enregistrement (sur une copie)...
eric

Essaye de décharger tout tes objets en memoire avec:

Code:

---

set MonObjet = Nothing

---

Mais bon je t'avoue que je fais face à ce problème également en ce moment alors qu'il me semble avoir oublié aucun objet :).

J'ai ajouté des chronomètres, et le points gêne c'est le code :

Code:

---

Cells.Delete

---

Plus je lance et plus le temps de traitement devient long sur ce simple bout de ligne tout bête...

Une idée?

Citation:

---

le points gêne c'est le code : Cells.Delete

---

tu effaces toute la feuille ?
Ca ne prend pas de temps ça, tu pourrais supprimer et recréer la feuille.
Tu n'aurais pas plutôt des évènements Change à désactiver ?
Mais bon, on ne va pas jouer aux devinettes 3 jours non plus et chercher les yeux bandés...

eric

Aucune procedure de cablée sur les Change.

J'ai effectivement modifié la procédure en supprimant la feuille et en recréant.
J'ai maintenant un temps beaucoup mieux.

Pourquoi Cells.delete ralenti le processus je pige pas trop...

sur 2007, j'ai eu des bizarreries avec les delete ou les copy, y compris manuels, en cas de filtres automatiques ou de volets figés.

Citation:

---

Envoyé par el_slapper

sur 2007, j'ai eu des bizarreries avec les delete ou les copy, y compris manuels, en cas de filtres automatiques ou de volets figés.

---

Tu as trouvé une solution ? Parce que c'est fort possible que mon problème vienne de là, j'utilise jamais les filtres auto d'habitude.

Bonjour à tous,

Ces lenteurs viennent probablement du fait qu'Excel mémorise les changements effectués sur le classeur.

Une solution:
Enregistrer le classeur après chaque ensemble de modifications.
Cela vide la mémorisation des modifications.

Bonjour

La proposition de Alain tech me semble bien adaptée

ensuite pourquoi

Code:

---

cells.delete

---

pourquoi vider ce qui est déjà vide
pourquoi pas ceci:

Code:

---

ActiveSheet.UsedRange.Delete

---

edit:
ensuite pourquoi ne pas utiliser

Code:

---

End

---

comme ça tout est vidé(variable de tout type )

exemple :

Code:

---

1 2 3 4

sub efface_tout() ActiveSheet.UsedRange.Delete end end sub

---

va voir msdn.microsoft.com la fonction End
au plaisir