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
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
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 (...) |
Partager