Bonjour,
Je cherche à créer un fonction (Function) qui me permettrait de récupérer pour la colonne 3 de mon filtre automatique, le nombre de critères sélectionnés.
"Ai-je aucun critère, 1, ou plusieurs critères ?"
Voici la fonction que j'ai essayé de mettre en place en bricolant une function existante.
Quelqu'un voit-il mon erreur ?
Merci.
Function nbCriteresActifs()
Dim Sh As Worksheet
Application.Volatile
If ActiveSheet.Name = "Feuil1" Then
Set Sh = Application.ThisCell.Parent
If Not Sh.AutoFilter Is Nothing Then ' il y a un filtre sur la feuille
If Sh.FilterMode Then 'Il y a des données filtrées
' Criter1 = Sh.AutoFilter.Filters(3).Criteria1
' Criter2 = Sh.AutoFilter.Filters(3).Criteria2
' If Criter1 = "" And Criter2 = "" Then nbCriteresActifs = 0
' If Criter1 <> "" And Criter2 = "" Then nbCriteresActifs = 1
' If Criter1 = "" And Criter2 <> "" Then nbCriteresActifs = 1
' If Criter1 <> "" And Criter2 <> "" Then nbCriteresActifs = 2
End If
End If
End If
End Function