Afficher dans une cellule le choix du filtre automatique

[Jéjé10150]

Bonjour à tous et encore merci à ceux qui prendront le temps d'essayer de solutionner mon problème.
Je souhaiterai afficher dans une cellule le choix d'un filtre automatique que je fais dans une colonne.
Exemple : Je tri mes élèves par classe et je voudrais que dans une cellule apparaisse le nom de la classe par laquelle j'opère le filtre.
j'en suis là : ="Classement des élèves de "&?????

 

[chinel]

Re : Afficher dans une cellule le choix du filtre automatique

Salut jeje10150 peux-tu être plus clair et montre moi ton fichier que je puisse mieux t'aider !

peut-être faire =recherchev !


a+

 

[Tibo]

Re : Afficher dans une cellule le choix du filtre automatique

Bonjour,

Regarde ce fil où je proposais 2 formules de Dame Monique.

Formules qui permettent de récupérer les valeurs filtrées.

https://www.excel-downloads.com/thr...iere-date-issue-dun-filtre-automatique.82083/

@+

 

[BOISGONTIER]

Re : Afficher dans une cellule le choix du filtre automatique

Bonjour,


Voir PJ

Function FiltreActuel(c, Optional typeCol As String)
  col = c.Column - Sheets(Application.Caller.Parent.Name).Range("_FilterDataBase").Column + 1
  feuille = Application.Caller.Parent.Name
  Application.Volatile
  If Sheets(feuille).FilterMode Then
    If Sheets(feuille).AutoFilter.Filters.Item(col).On Then
       temp = ActiveSheet.AutoFilter.Filters.Item(col).Criteria1
       If Left(temp, 2) = ">=" Or Left(temp, 2) = "<=" Then
          o = Left(temp, 2): n = Mid(temp, 3)
       Else
         If Left(temp, 1) = "=" Or Left(temp, 1) = ">" Or Left(temp, 1) = "<" Then
           o = Left(temp, 1): n = Mid(temp, 2)
         Else
           n = temp
         End If
       End If
       If typeCol = "D" Then n = Format(n, "dd/mm/yy")
          temp = o & n
          '---
          If Sheets(feuille).AutoFilter.Filters.Item(col).Operator Then
             oper = IIf(Sheets(feuille).AutoFilter.Filters.Item(col).Operator = 1, " ET ", " OU ")
             On Error Resume Next
             temp2 = Sheets(feuille).AutoFilter.Filters.Item(col).Criteria2
             If Err = 0 Then
                If Left(temp2, 2) = ">=" Or Left(temp2, 2) = "<=" Then
                   o = Left(temp2, 2): n = Mid(temp2, 3)
                Else
                  If Left(temp2, 1) = "=" Or Left(temp2, 1) = ">" Or Left(temp2, 1) = "<" _
                    Then o = Left(temp2, 1): n = Mid(temp2, 2)
                End If
                If typeCol = "D" Then n = Format(n, "dd/mm/yy")
                   temp2 = o & n
                Else
                   oper = ""
                End If
             End If
             FiltreActuel = temp & oper & temp2
          Else
             FiltreActuel = ""
          End If
       Else
           FiltreActuel = ""
    End If
End Function

JB
Formation Excel VBA JB

 

[Jéjé10150]

Re : Afficher dans une cellule le choix du filtre automatique

Merci à tous pour vos réponses parmi lesquelles j'ai trouvé mon bonheur.