XL 2016 Réaliser Filtre avancé et variables tableaux

KTM · 17 Décembre 2021

Bonjour chers tous
J'ai élaboré une macro de filtrage avancé de ma feuille "Base" vers une feuille "Impr" que je vais plus tard imprimée.
La macro s'exécute bien mais avec des données importantes , elle deviendrait lente.
j'ai lu qu'avec des tableaux vba on gagnerait du temps précieux.
Je voudrais votre aide pour le faire et pouvoir l'adapter à d'autres situations.
Merci.

chris · 17 Décembre 2021

Bonjour

Le filtre avancé est connu pour être hyper rapide et efficace

Inutile d'effacer la plage de destination : il s'en charge
Inutile de préciser la plage exacte

VB:

Sheets("Base").Range("A:F").AdvancedFilter....

suffit

mapomme · 17 Décembre 2021

Bonjour @KTM , @chris ,

Si vous tenez à du VBA avec array... Mais je doute que ça soit plus rapide qu'un filtre avancé.
Voir fichier...

250 000 lignes de données:

avec le filtre avancé => # 0,5 s (quelque soit le critère)
avec VBA et array() => # 0,8 s (fonction du critère - jusqu'à 1,1 s pour le critère TOUN1)

cp4 · 17 Décembre 2021

Bonjour @KTM , @mapomme , @chris ,

Je l'ai fait, je le joins. Appel de la macro se fait depuis Worksheet_Change (c-à-d au changement de la cellule "I6").

KTM · 18 Décembre 2021

cp4 à dit:
Bonjour @KTM , @mapomme , @chris ,

Je l'ai fait, je le joins. Appel de la macro se fait depuis Worksheet_Change (c-à-d au changement de la cellule "I6").

Merci

KTM · 18 Décembre 2021

cp4 à dit:
Bonjour @KTM , @mapomme , @chris ,

Je l'ai fait, je le joins. Appel de la macro se fait depuis Worksheet_Change (c-à-d au changement de la cellule "I6").

mapomme à dit:
Bonjour @KTM , @chris ,

Si vous tenez à du VBA avec array... Mais je doute que ça soit plus rapide qu'un filtre avancé.
Voir fichier...

250 000 lignes de données:

avec le filtre avancé => # 0,5 s (quelque soit le critère)

avec VBA et array() => # 0,8 s (fonction du critère - jusqu'à 1,1 s pour le critère TOUN1)

Merci

XL 2016 Réaliser Filtre avancé et variables tableaux

KTM

XLDnaute Impliqué

Pièces jointes

chris

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

cp4

XLDnaute Barbatruc

Pièces jointes

KTM

XLDnaute Impliqué

KTM

XLDnaute Impliqué

Discussions similaires