[VBA-E] boucle lente !

Bonjour,

J'ai un problème de performance dans une boucle vba. Le but de ma boucle est simplement d'inscrire le numéro de la ligne dans la colonne A. la boucle va jusqu'à la ligne 40 000. Le code est simple et ne pose aucun problème :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub boucle()   n = 0   Do   n = n + 1   Cells(n, 1).Value = n   Loop Until n = 40000   End Sub

---

(Ces chiffres me servent simplement à procéder au tri final de mon fichier par ordre alphanumérique lorsque toutes les manipulations ont été effectuées.)


Ce même fichier est rempli de formules. Il est relativement lourd.

Lorsque j'active la boucle, les numéro s'inscrivent correctement. Mais elle est anormalement lente. 20 cellules de remplies à la seconde.

J'ai donc fait des tests :

-- J'ai fait un copiage en valeur du fichier et j'ai activé la macro. ça fonctionne rapidement

-- J'ai ajouté le copiage en format du fichier et ça fonctionne normalement. la macro atteint la cellule 40 000 en 2 sec.

-- J'ai copié une colonne en formule. la macro a commencé à ralentir. j'ai finalement copié toutes les formules dans le fichier et la macro est à nouveau redevenu anormalement lente.


Encore plus étrange :

-- Lorsque mon fichier rempli de formules est ouvert et que je réalise cette macro de numérotation de lignes sur un autre classeur vierge, la boucle est toujours très lente.

-- Lorsque je lance la même boucle sur un classeur vierge et que mon fichier (rempli de formules) est fermé, la boucle retrouve son rythme normal (1 à 2 sec au lieu de 20mn)

-- J'ai déja réalisé la même macro sur une première maquette similaire à mon fichier actuel en terme de volume et du nombre de formules, je n'ai pas rencontré ce problème.

Y a t'il parmi vous des surdoués qui pourraient identifiés la source du problème.

Je craque.

Merci !

zenix

encore un problème d'affichage à inhiber pendant la boucle, apparemment ....
Mega ? Bbil ? Ouskel ? :lol:

Salut!
Respire un coup, ça va aller...
Essaie ça, et dis moi ce que ça fait:

Code:

---

Application.Calculation = xlManual

---

Heeyyy, hoo!
5 minutes, c'est correct, comme temps de réponse!!? Ça ferait pâlir d'envie pas mal de hotline...
:D
"jmf", pas toi? Tu ne vas pas t'y mettre... :D

Ptain Merci Megaxel et jmfmarques !!

Vous êtes super efficaces. ça a l'air de fonctionner.

Je suis curieux. Pourquoi le problème ne se posait pas avant ?
Je n'ai pourtant rien changé au niveau "calculation"

J'imagine qu'à la fin de ma procédure, il faut que je change xlmanual? quel est le mode à remettre?

encore une fois merci. dire que ça fait des heures que j'étais dessus. c ma première fois ici. bin je repasserai plus souvent ;)


Merci

Pour les différents mode, fais comme moi: ne les apprend surtout pas par coeur, et fais un enregistrement de macro quand tu en as besoin...
Et n'oublie pas, en repassant sur ce site, de répondre aux problèmes posés par les autres.
Ni de cliquer sur le bouton :resolu: