Discussion :

[Shaken06]

Bonjour à tous,

Je cherche une peu d'aide sur quelque chose qui, j'espère, est réalisable (disclaimer : j'ai un niveau très basique en VBA, autodidacte en ligne mais avec un temps d’apprentissage un peu limité)

J'ai créé une macro basique, affecté à un bouton pour filtrer un tableau suivant la valeur d'une cellule.

Code :

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

1
2
3
4
 
Sub tri_services()
ActiveSheet.Range("$A$21:$AI$399").AutoFilter Field:=6, Criteria1:=Range("F8").Value
End Sub

Cette cellule F8 est en fait un menu déroulant dynamique, ou l'utilisateur fait une recherche.

Jusqu'ici tout fonctionne bien, je clique sur le bouton et je filtre suivant le mot choisi.
Seulement j'aimerai qu'en faisant une nouvelle recherche, et en cliquant sur la macro, le nouveau mot critère du filtre vienne s'ajouter au filtre précédent (un peu a la manière de ce que fait l'interface de filtre d'Excel quand on coche "ajouter à la sélection en cours")

J'ai bien pensé à dédoubler mon menu de recherche sur une autre cellule, et a ajouter un crieria2, mais en plus de ne pas être propre, si je veux proposer a l utilisateur de choisir autant de recherches qu'il le souhaite, ça va vite devenir bordélique

Merci à ceux qui pourront me consacre un peu de temps

[Invité]

Bonjour,

Ce que vous décrivez là correspond au filtre avancé. Cf fichier joint.
Pièce jointe 586375

Lorsqu'on choisit un nom dans la liste de validation en B5 et qu'on clique sur Filtrer, le nom s'ajoute dans le tableau structuré en G1. Ce tableau correspondant à la zone de critère, les noms figurant dans la table sont pris en compte.

Code :

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

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
Option Explicit
 
Sub Tri_Services()
 
         AjoutTableDesNoms Sheets("Filtre").Range("NomChoisi").Value
 
         Sheets("Données").Range("$A$10:$E$160").AdvancedFilter Action:=xlFilterCopy, _
                   CriteriaRange:="Filtre!Criteria", CopyToRange:=Range("Filtre!Extract"), Unique:=False
 
End Sub
 
 
 
Sub AjoutTableDesNoms(ByVal NomChoisi As String)
 
Dim I As Integer
Dim AireTabNoms As Range
Dim Continuer As Boolean
Dim TabNoms As ListObject
Dim LigneNom As ListRow
 
    Set TabNoms = Sheets("Filtre").ListObjects("TableDesNoms")
 
    With TabNoms
 
        If .ListRows.Count = 0 Then
 
           Set LigneNom = .ListRows.Add
           LigneNom.Range(1, 1) = NomChoisi
           Set LigneNom = Nothing
 
        Else
 
           Set AireTabNoms = TabNoms.DataBodyRange
           Continuer = True
           For I = 1 To AireTabNoms.Count
               With AireTabNoms(I)
                    If .Value = NomChoisi Then
                        Continuer = False
                        Exit For
                    End If
               End With
           Next I
 
           If Continuer = True Then
 
              Set LigneNom = .ListRows.Add
              LigneNom.Range(1, 1) = NomChoisi
              Set LigneNom = Nothing
 
           End If
 
 
      End If
 
   End With
 
    Set TabNoms = Nothing
 
End Sub

Si vos tableaux sont des tableaux structurés, vous pourriez faire la même chose avec Power Query : Power-query-excel-alternative-efficace-filtre-avance-dynamique

Pour Philippe , ton générateur de nom est toujours utile...

[Shaken06]

Merci pour votre solution (et désolé du délai de réponse, les dernières semaine sont été un peu... agitées !)

Elle est très propre, davantage que la solution de secours que j'avais trouvé : j'ai créée un petit tableau à part, et ma maccro filtre verifie en premier lieu si ce tableau est vide. S'il l'est, elle filtre ma base avec le nom que j'ai choisi dans la liste déroulante, et copie ce nom dans mon tableau. la fois suivante, avec un autre nom dans la liste déroulante, quand la macro trouve une entrée dans le tableau annexe, le filtre se fait a la fois sur la cellule du menu déroulant, et sur le contenu du tableau annexe (via criterial array))

Ça fonctionnait mais j'avais vraiment l'impression de faire du bricolage

Encore merci et à bientot

[Philippe Tulliez]

Bonjour Eric,

Pour Philippe , ton générateur de nom est toujours utile...

Tu m'en vois ravi

[Pierre Fauconnier]

Salut.

Tu peux passer un array comme valeurs à filter:

Code :

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

MyRange.AutoFilter field:=1, Criteria1:=Array(Value1, Value2, Value3), Operator:=xlFilterValues

Il "suffit" alors de pouvoir créer l'array, selon la conception de ton classeur.