[VBA-E]macro lente. étrange. étrange.

**zenix** · 19/04/2006, 21h20

Bonjour,

Je rencontre un problème qui bloque tout mon projet de développement. Mon précédent problème a été résolu en trente secondes dès lors que je l'ai exposé sur ce forum. Si seulement les super héros de l'autre fois pouvait se manifester

donc :

J'ai un fichier excel rempli de formules. Plus de 40 000 lignes. J'active des macros à partir d'un formulaire pour, entre autres, masquer certaines lignes (simples boucles permettant de mettre la valeur de rows(n).hidden à true ou à false en fonction de la valeur de certaines cellules de la ligne n.

J'avais déja rencontré des problèmes de boucle lente. Ce problème avait été résolu (grace à ce forum) en affectant au début de la procédure, la valeur xlsmanual à Application.calculation. (en fin de boucle, j'y réaffecte la valeur xlsautomatic.

Malgré ça, mon probème est désormais le suivant :

Lorsque :
j'imprime le fichier excel ou
je définis une zone à imprimer spécifique ou
je change la mise en page (exemple : feuille en mode paysage et fichier à imprimer ajuster à une page en hauteur),

mes macros redeviennent très lentes (comme lors de mon problème précédent.

Pire, lorsque la macro tourne toujours et que je clique sur le bouton fermer du formulaire (à partir duquel j'active les macros), Excel bug et je dois fermer l'application sans même pouvoir sauvegarder mon travail.

Mon application va être utilisé par les utilisateurs dès demain midi. le ptit stagiaire que je suis flippe.

Merci de votre aide !!

zenix

**SfJ5Rpw8** · 22/04/2006, 02h29

ben à priori ton fichier ... semble être rempli de lignes de formules... ? ne devrai tu pas limiter les calculs ... en passant les caculs de ton classeurs en manuel ... puis utiliser la commande Calculer maintenant (F9) .. pour ne recalculer tes formules que lorsque des changements l'impose...

**ouskel'n'or** · 22/04/2006, 11h50

Hello

Envoyé par tu

Mon application va être utilisé par les utilisateurs dès demain midi

Y'a donc urgence, il est 12h45

mais je n'ai pas vu ton post plus tôt.
Tu as une solution "provisoire" en attendant de régler le pb : Fais une copie des données calculée + collageSpécial dans une autre feuille, des valeurs d'abord, du format ensuite, et fais ton édition à partir de là.
Juste une idée pour "dépanner".
Je relis ton post pour voir si je trouve quelque chose

A+

**ouskel'n'or** · 22/04/2006, 11h55

la valeur xlsmanual à Application.calculation. (en fin de boucle, j'y réaffecte la valeur xlsautomatic.

Déjà, au lieu de repasser la valeur à xlsautomatic, qui lance le calcul dès qu'une valeur est modifiée, utilise l'instruction Calculate avant de lancer l'édition.
Un idée comme ça mais j'essaierais en laissant xlsmanual.
Tu dis

Je contnue ma lecture

A+

Edit
pour une feuille de calcul particulière : Worksheets(1).Calculate