Filtre automatique

Re: Filtre automatique : SUPER !!!

Bonjour le forum,

J'ai envie de faire partager une réponse qu'on m'a donné à propos de cette question.
C'est Starwing (Stephen Bullen) du groupe de news (microsoft.public.fr.excel) qui a trouvé une superbe solution.

>>Existerait-il un moyen de lister, ou d'indiquer d'une
>>manière ou d'une autre combien ou quelles critères sont
>>actifs ?
>
> Exemple d'une fonction de Stephen Bullen
> La liste déroulante débute en A3, B3, etc
> En A1 =Filtercriteria(A3)
> En B1 =Filtercriteria(B3)etc...
>
Function FilterCriteria(Rng As Range) As String
'By Stephen Bullen
Application.Volatile
Dim Filter As String
Filter = ""
On Error GoTo Finish
With Rng.Parent.AutoFilter
If Intersect(Rng, .Range) Is Nothing Then GoTo Finish
With .Filters(Rng.Column - .Range.Column + 1)
If Not .On Then GoTo Finish
Filter = .Criteria1
Select Case .Operator
Case xlAnd
Filter = Filter & " AND " & .Criteria2
Case xlOr
Filter = Filter & " OR " & .Criteria2
End Select
End With
End With
Finish:
FilterCriteria = Filter
End Function


Starwing


Voila, une petite contribution au forum que je trouve génial aussi.
Carl