Durée macro interminable ?

Bjr,

J'ai mis dans Worbook / Before Open le code suivant :

Code:

---

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

Private Sub Workbook_Open()   'Défiltre toutes les colonnes   Sheets("Feuil1").Select Rows("1:1").Select Selection.AutoFilter Selection.AutoFilter For i = 1 To 256 Selection.AutoFilter Field:=i Next i End Sub

---

Mon fichier Excel etant assez volumineux (10Mo), j'ai une feuille (Feuil1) où mes colonnes vont jusqu'à IV sur 150 Lignes.

Il arrive souvent que je fasse un tri sur une ou plusieurs colonnes.
C'est pour celà qu'au démarrage, toutes les colonnes de cette feuille sont défiltrées. Il faut également savoir que dans cette feuille, beaucoup de colonnes font références à d'autres feuilles par le biais de formule de ce type :

{=SI(ESTERREUR(INDEX(Spot!$L$2:$L$999;EQUIV(1;(Spot!$A$2:$A$999=$A6)*(Spot!$I$2:$I$999=BM$1);0)));"";INDEX(Spot!$L$2:$L$999;EQUIV(1;(Spot!$A$2:$A$999=$A6)*(Spot!$I$2:$I$999=BM$1);0)))}

Le problème est que celà prend (chrono en main) 17 mn.

Y aurait il une solution pour pallier à cette attente ?

Cordialement.

Bonjour,

Pour acceler le code, désactive l'affichage et les calculs

Code:

---

1 2 3 4 5 6 7 8

Application.ScreenUpdating = False Application.Calculation = xlCalculationManual   ...     Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic

---

Bonjour,

Il me semble que malheureusement, il n'y a pas beaucoup de moyens d'accélérer ton code.

Néanmoins peut-être que en désactivant le calcul automatique et en le remettant à la fin de ta macro tu pourrais gagner du temps
voici l'instruction:

Code:

---

1 2 3

application.Calculation = xlCalculationManual 'ton code application.Calculation = xlCalculationAutomatic

---

de même il est possible de gagner du temps avec :

Code:

---

1 2 3

Application.screenUpdating = False 'ton code Application.screenUpdating = True

---

mais sinon je ne vois pas comment faire plus...

Merci à vous 2 :ccool:

çà prend environ 10 secondes maintenant