Filtre automatique

Bonsoir Jean
Hormis une dioptrie plus forte, je ne vois pas comment améliorer cela. -)))
Ou, alors, via une MEFC puisque le tri répond à au moins une condition.
????

--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.
j.thiernesseNOSPAM@skynet.be
"Jean bidule" <bidulele@hotmail.com> a écrit dans le message de news:
419f8b12$0$30703$ba620e4c@news.skynet.be...

Bonsoir le forum,

j'ai un petit soucis; il est difficile de voir les critères activés
(petites flèches bleues) lorsque j'établis un filtre automatique.
Existerait-il un moyen de lister, ou d'indiquer d'une manière ou d'une
autre combien ou quelles critères sont actifs ?

Merci beaucoup au forum.
Jean

Bonjour Jean Bidule,

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

Bonsoir Starwing , Jean ,...et les autres.

Bravo!
pour ce sujet bien utile.
C'est vrai que cette couleur bleue n'en disait pas plus.
J'espère que nombreux en profiterons.

:-)
lSteph

"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
880b01c4cf3a$97e64580$a301280a@phx.gbl...
Bonjour Jean Bidule,

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

Vraiment super !!!
Chapeau Starwing, c'est bien plus facile comme ça.

Jean

"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:
880b01c4cf3a$97e64580$a301280a@phx.gbl...
Bonjour Jean Bidule,

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