Re... Desty
Voilà c'est une idéee
Public Sub InfoFiltre()
Dim vTab
Dim I As Byte
Dim vCritère As String
With ActiveSheet
vTab = .Range("A1:A" & Range("IV1").End(xlToLeft).Column)
If .AutoFilterMode = False Then
MsgBox "les filtres ne sont pas actif"
Else
If .FilterMode = False Then
MsgBox "Les filtres sont affichés, aucune sélection est en cours"
Else
For I = 1 To UBound(vTab, 1)
With .AutoFilter.Filters(I)
If .On Then vCritère = "le champ " & vTab(I, 1) & " est filtré," _
& " les données doivent être " & .Criteria1 & _
IIf(.Criteria2 = "", "", IIf(.Operator = 1, " et ", " ou ") & .Criteria2 & vbLf)
End With
Next I
MsgBox vCritère
End If
End If
End With
End Sub
@+Jean-Marie