Bonjour,

Je dois faire des filtres sur une feuille de mon classeur, le problème c'est que les colonnes peuvent changer d'un moment à l'autre, je voudrais faire en sorte que le programme recherche la bonne colonne avant de faire le filtre selon le nom de la colonne qui se trouve toujours en première ligne, par exemple :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Nbc = Range("A1").CurrentRegion.Columns.Count
 
Dim i As Integer
 
For i = 1 To Nbc
 
    If Cells(1, i).Value = "Das" Then ActiveSheet.Columns(i).AutoFilter _
    Field:=7, Criteria1:="SANTE"
 
    If Cells(1, i).Value = "Date_1ereTarification" Then ActiveSheet.Columns(i).AutoFilter Field:=8, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "7/16/2015")
 
Next i
Je pense que le
Code : Sélectionner tout - Visualiser dans une fenêtre à part
 Activesheet.columns()
pose problème car je vois que le filtre automatique est généralement utilisé avec des
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Range
.

Merci d'avance pour votre aide