Discussion :

[graphikris]

Bjr,

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

Code :

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

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.

[jfontaine]

Bonjour,

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

Code :

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

1
2
3
4
5
6
7
8
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
 
...
 
 
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

[supierre]

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 :

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

1
2
3
application.Calculation = xlCalculationManual
'ton code
application.Calculation = xlCalculationAutomatic

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

Code :

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

1
2
3
Application.screenUpdating = False
'ton code
Application.screenUpdating = True

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

[graphikris]

Merci à vous 2

çà prend environ 10 secondes maintenant