[Toutes versions] Tutoriel - Les filtres avancés ou élaborés d'excel

[Philippe Tulliez]

Bonjour Chris,
Effectivement j'avais le même message d'erreur lors de mes tests (#NOM?) ce qui est normal comme message d'erreur mais curieux pour le résultat positif qu'il engendre. A creuser.

[fredo38]

Bravo et merci pour ce tutoriel qui m'a permis de découvrir cette fonctionnalité de façon rapide et claire

[Philippe Tulliez]

Bonjour Frédéric,
Merci pour tes congratulations.
Philippe

Envoyé par fredo38

Bravo et merci pour ce tutoriel qui m'a permis de découvrir cette fonctionnalité de façon rapide et claire

[Darkzinus]

Merci beaucoup pour ce tutoriel ! Autant le filtre de "base" est connu autant ce genre de filtre élaboré est assez bluffant en terme de possibilités !

[issoram]

Merci Philippe pour ce tutoriel.

Une fonctionnalité d'Excel que je ne connaissais pas et qui m'a l'air fort pratique.
Je teste tout ça de suite.

Suite du message: Je viens de finir le tutoriel, c'est super clair, merci encore et félicitations!
En somme c'est un équivalent du SELECT FROM WHERE Sql sur une table de données => super pratique.

Par contre en termes de performance, ça donne quoi sur des grosses tables avec filtres complexes?

[Philippe Tulliez]

Bonjour Darkzimus,

Envoyé par Darkzinus

Merci beaucoup pour ce tutoriel ! Autant le filtre de "base" est connu autant ce genre de filtre élaboré est assez bluffant en terme de possibilités !

Merci pour ton appréciation qui me fait extrêmement plaisir.
Philippe

[Philippe Tulliez]

Bonjour Zeco,

Envoyé par issoram

Merci Philippe pour ce tutoriel.
Une fonctionnalité d'Excel que je ne connaissais pas et qui m'a l'air fort pratique.
Je teste tout ça de suite.
Suite du message: Je viens de finir le tutoriel, c'est super clair, merci encore et félicitations!
En somme c'est un équivalent du SELECT FROM WHERE Sql sur une table de données => super pratique.
Par contre en termes de performance, ça donne quoi sur des grosses tables avec filtres complexes?

Merci aussi pour ton gentil commentaire qui donne envie de continuer à partager ses connaissances.
Pour ce qui est des performances, je viens à l'instant de faire un test sur une liste de données de 65000 lignes et 4 colonnes ($A$1:$D$65001) avec un filtre portant sur une zone de critères de 2 lignes et 3 colonnes ($G$1:$I$3).
Sexe|Crit |Véhicule
...F...|FAUX|
.......|........|Opel
Le critère calculé est =ANNEE(C2)=1966

Test effectué à l'aide de la fonction qui est présente dans le classeur qui accompagne le tutoriel.
Dans cet exemple 10 038 lignes sont exportées avec création de la feuille qui reçoit les lignes exportées. Temps 2 secondes 32

[issoram]

Merci pour la réponse,

Si j'ai un peu de temps je ferais des comparatifs de performances vs l'utilisation de tableaux en VBA.

Et merci encore de partager (de ton temps et tes connaissances) et de contribuer à enrichir la bibliothèque des tutoriels.

[Ormonth]

Bonjour issoram;

Envoyé par issoram

Si j'ai un peu de temps je ferais des comparatifs de performances vs l'utilisation de tableaux en VBA.

Au niveau du contexte, via Excel, on passe en langage natif, les similitudes entre ll’organisation d'une feuille et les variables tableaux, plus le fait qu'on puisse dans les deux sens injecter l'un dans l'autre direct, laisse à penser que c'est, en partie, le mode de fonctionnement d'Excel.
Donc si on pilote Excel sur des fonctions natives via VBA, on doit gagner par rapport à monter une plage dans un tableau, exécuter du code et redescendre.

mes test pour ce fil vont dans le même sens que Philippe :

Sinon, dès que les données sont nombreuses tu as intérêt à éviter les boucles quel quelles soient car elles sont chronophages.

Dans un cas comme le tien passer par un filtre auto ou avancé, à un stade donné, pour récupérer les données voulues serait surement bien plus rapide.
Pour exemple, sur un fichier de données de villes de 146 727 lignes et 2 346 687 cellules, je récupère une table de 2329 lignes et 37 249 cellules en l'espace de moins d'une seconde avec une extraction vers autre emplacement d'un filtre avancé...

cordialement,

Didier

[Philippe Tulliez]

Bonjour,
Cette discussion sur le forum m'a inspiré un nouvel exemple dans l'utilisation des filtres avancés.
Dans un classeur Excel nous avons une liste de données ayant en colonne A le nom de différents services d'une entreprise et dans les autres colonnes d'autres données.
L'idée est d'envoyer un classeur contenant une feuille à chacun des services concernés avec les données qui lui sont propres.
Les zones :
de données en feuille [db] avec en colonne A le nom des services,
de critères cellules $C$1:$C$2 dans la feuille [Param]
La feuille [Param] contiendra également la liste des services qui aura été exportée sans les doublons par la même méthode advancedFilter
La procédure
Elle se déroulera en deux étapes dont la deuxième est subdivisée en trois parties.
Etape 1 : Création d'une liste unique basée sur la colonne 1 (Services).
Etape 2 : Dans une boucle
2.1 Création nouvelle feuille
2.2 Exportation vers nouvelle feuille
2.3 Déplacement de cette nouvelle feuille vers un nouveau classeur
Le code de la procédure

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub ExportDataByAdvancedFilter()
 ' Déclaration + Initialisation des variables
 Dim rngList As Range, rngData As Range, rngCriteria As Range, r As Long
 Set rngData = shtData.Range("A1").CurrentRegion
 With shtParam
  Set rngList = .Range("A1"): Set rngCriteria = .Range("C1:C2")
 End With
 ' Etape 1 - Création d'une liste unique basée sur la colonne 1
 With rngData
 .Resize(, 1).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=rngList, Unique:=True
 End With
 ' Etape 2 - Boucle sur la liste avec placement du critère
 '           Création nouvelle feuille
 '           Exportation vers nouvelle feuille
 '           Déplacement de cette nouvelle feuille vers un nouveau classeur
 For r = 1 To rngList.CurrentRegion.Rows.Count - 1
  rngCriteria.Cells(2, 1) = rngList.Offset(r) ' Insère le critère
  ' 2.1 - Création d'une feuille
  Sheets.Add before:=Sheets(1): Sheets(1).Name = rngList.Offset(r)
  ' 2.2 - Exportation vers nlle feuille suivant critère
  With rngData
  .AdvancedFilter xlFilterCopy, rngCriteria, Sheets(1).Range("A1")
  End With
  ' 2.3 - Déplacement de la feuille cers un nouveau classeur
  Sheets(1).Move
  '
  ' Ici code pour sauver classeur, Envoyer par email etc...
  '
 Next
End Sub