Discussion :

[samsso2006]

bonjour,
(Merci de consulter consulter la pièce jointe)
J'applique un filtre sur la colonne I.
j'aimerais remplacer les caractères "XXXX"(E1) par l'element qui sera selectionné à chaque fois dans le filtre.
Par exemple, avoir CHANGEMENT DE LOCALITES: Tabou, lorsque j'aurais selectionné Tabou ou encore avoir CHANGEMENT DE LOCALITES: Podoue, lorsque j'aurais selectionnné Podoue dans la liste de filtrage sur la colonne Loc2008.

Merci.

[cb_60]

Bonsoir
Avec une fonction de Jacques Boisgontier

[alsimbad]

chapeau. perso, je pensais même pas que ce soit possible.

[cb_60]

Bonjour
C'est vrai que l'on peut dire Chapeau, je me demande ou il va chercher tous les codes qu'ils nous propose!!
Pour le besoin de samsso2006, la fonction peut être rétréci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Function FiltreActuel(c, Optional typeCol As String)
 Application.Volatile
 col = c.Column - Sheets(Application.Caller.Parent.Name).Range("_FilterDataBase").Column + 1
 feuille = Application.Caller.Parent.Name
 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
        FiltreActuel = temp
    End If
  Else
      FiltreActuel = ""
  End If
End Function