Discussion :

[jlduboc]

Bonjour à tous

Je souhaite filtrer un tableau avec des combobox qui donnent les valeurs à filtrer

Comment puis je récupérer uniquement les valeurs filtrées du niveau 1 pour filtrer le niveau 2

Filtre du niveau 1 à partir d'un tableau annexe (Fonctionne)

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
10 Private Sub cmbFiltSecteur_Change()
 
'Recherche de contact par secteur, activité et service
'Recherche du secteur sur combobox cmbFiltSecteur
 
20 With Sheets("Contacts")
 
30          .AutoFilterMode = False
 
40            .Range("A1:W1").AutoFilter
 
50         If cmbFiltSecteur.Value <> "" Then
60           .Range("A1:W1").AutoFilter Field:=1, Criteria1:=cmbFiltSecteur.Value
 
70           End If
80 End With
90 End Sub

Je ne sais pas comment récupérer les valeurs filtrées ci dessus pour filtrer le niveau 2

de même pour un niveau 3

Le nom de la combobox devant indiquer les noms à filtrer
du niveau 2 est cmbFiltAct
du niveau 3 est cmbFiltNom

Merci d'avance
cordialement

[vinc_bilb]

Bonjour,

Les résultats après filtres peuvent être facilement récupérés en passant par le Range.SpecialCells : choisir les cellules visibles comme

Code :

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

Set DataRng = DataRng.SpecialCells(xlCellTypeVisible)

Vous pouvez aussi passer les paramètres des filtres par un tableau (sur les valeurs ou sur les champs), du style

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AutoFilter_by_ArrayParam()
Dim Wks As Worksheet	
On Error GoTo Err_Filter	
Dim arCriteria(0 To 1) As String	
 
Set Wks = ActiveSheet	
arCriteria(0) = "Loeb"	
arCriteria(1) = "Vettel"	
 
Wks.UsedRange.AutoFilter Field:=2, Criteria1:=arCriteria, Operator:=xlFilterValues
 
Err_Filter:	
If Err <> 0 Then (...)