Discussion :

[Kanetsugu]

Bonjour,

J'ai une macro qui applique une formule à des cellules d'une plage. La formule est assez lourde (récupération et somme de valeur dans un autre fichier)
et à chaque fois que j'applique ma formule, excel en effectue l'évaluation ... ce qui est très lent. Du coup avec plusieurs milliers de cellules, ça dure des heures.

J'aimerais pouvoir désactiver totalement le calcul (même manuel car avec xlCalculationManual ça ne fonctionne pas mieux).

Avez vous une solution ?
Merci d'avance

[Access Newbie]

Bonjour,

Avez-vous essayé d'enlever l'affichage ? et les evenements ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
application.screenupdating=false
application.enableevents=false

Laissez egalement le xlManual que vous repassez en auto a la fin du traitement.

Il faut bien sur les remettre a true en fin de traitement ou en cas d'erreur.

[Kanetsugu]

oui j'ai essayé d'ajouter ces instructions, j'ai aussi essayé Sheet("Feuil1").EnableCalculation = False et c'est toujours aussi lent.

[Qwazerty]

Salut

Essai comme cela, si tu es sûr que l’état de départ et d'arrivée sera toujours Automatique, inutile d'utiliser la mémorisation, je te la met pour info.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim MemoCalcul As XlCalculation
'On mémorise l'etat actuel
MemoCalcul = Application.Calculation
'On passe en mode de calcul manuel
Application.Calculation = xlCalculationManual
 
'[...]Suite de ton code
 
'On repasse à l'etat du mode de calcul de départ
Application.Calculation = MemoCalcul

Si ton tableau est vraiment volumineux, il serait peut-être judicieux de passer par un tableau interne dont la vitesse est sans commune mesure avec une modification à la volée directement sur une feuille de calcul. Si tu es intéressé, place ton code pour voir se qu'il est possible de faire (avec des explications si nécessaire).

++
Qwaz

[Kanetsugu]

J'ai trouvé un moyen d'accélérer les choses, je n'applique plus la formule à chaque ligne mais seulement à la première ligne. Ensuite je fais un autofill sur le reste de la plage.

Cependant, pour appliquer cette méthode je dois modifier légèrement ma formule pour que ça fonctionne et j'ai un peu de la peine.

Ma formule de base est la suivante :
Je vais faire la somme d'un certains nombre de cellules dans une autre feuille qui ont une référence commune, je plafonne ensuite cette somme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=PLAFOND(SOMMEPROD(('C:\Admin\x\[Journal.xls]Journal'!$F$4:$F$4000=$C8)*('C:\Admin\x\[Journal.xls]Journal'!$F$4:$F$4000>0);'C:\Admin\x\[Journal.xls]Journal'!$E$4:$E$4000);"00:01")

Le chemin est variable (x) et il est d'abord calculé et mis dans une plage de cellule. J'aimerais donc que ma formule prenne le chemin voulu dans la plage.

J'ai essayé quelque chose comme ça (avec le chemin pour chaque cellule en AA) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=PLAFOND(SOMMEPROD((CONCATENER(AA1;"!$F$4:$F$4000=$C1"))*(CONCATENER(chemin;"!$F$4:$F$4000>0"));CONCATENER(chemin;"!$E$4:$E$4000"));"00:01")

Mais ça ne fonctionne pas

Est-ce que quelqu'un pourrait m'aider à construire cette formule ?
Merci d'avance.

[Access Newbie]

Bonjour,

Avez-vous essayé comme ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=PLAFOND(SOMMEPROD((CONCATENER(AA1;"!$F$4:$F$4000=$C1"))*(CONCATENER(AA1;"!$F$4:$F$4000>0"));CONCATENER(AA1;"!$E$4:$E$4000"));"00:01")