Discussion :

[aziz1015]

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

[joe.levrai]

Bonjour,

un exemple pour comprendre
je pars du principe que ta première colonne remplie est en A

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Test()
Dim Recherche As String
 
' En-tête de colonne recherché
Recherche = "TOTO"
 
' on cherche l'en-tête dans la ligne 1
Set c = Rows(1).Find(Recherche, , xlValues, xlWhole)
 
' si on l'a trouvé  :    filtre automatique sur cette colonne avec "SANTE" en contenu
If Not c Is Nothing Then Range("A1").AutoFilter c.Column, "SANTE"
 
End Sub

[aziz1015]

Merci pour votre réponse, cela fonctionne parfaitement. En revanche, j'ai un problème lorsque le critère est de type date :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 For i = 1 To Nbc
 
 
        Set d = Rows(i).Find("Date_1ereTarification", , xlValues, xlWhole)
         If Not d Is Nothing Then Range("A1").AutoFilter d.Column, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "7/16/2015")
 
        Set e = Rows(i).Find("Date_DemandeSouscription", , xlValues, xlWhole)
         If Not d Is Nothing Then Range("A1").AutoFilter e.Column, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "7/16/2015")
 
 Next i

J'ai essayé de faire avec l'enregistreur de macros, et il prend comme critère la dernière date en cours, je voudrais avoir comme critère la dernière date en automatique, cela est il possible ?

Je n'arrive pas à utiliser la fonction Date, quand je fais ça par exemple :

Code :

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

1
2
3
       Set e = Rows(i).Find("Date_DemandeSouscription", , xlValues, xlWhole)
         If Not d Is Nothing Then Range("A1").AutoFilter e.Column, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "Date")

cela ne fonctionne pas.

Cordialement

[joe.levrai]

Sans me pencher plus en avant sur ton problème, je note que tu find avec une variable e, et qu'ensuite tu testes l'existence de l'objet d, c'est normal ?

Code :

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

1
2
3
Set e = Rows(i).Find("Date_DemandeSouscription", , xlValues, xlWhole)
If Not d Is Nothing Then Range("A1").AutoFilter e.Column, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "Date")

ensuite, tu veux filtrer quoi exactement en terme de date ? Uniquement la date du jour ?

[aziz1015]

Merci pour votre réponse, je l'avais corrigé dans mon programme, j'avais oublié de faire la correction ici :

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
Nbl = Range("A1").CurrentRegion.Rows.Count
Nbc = Range("A1").CurrentRegion.Columns.Count
 
    For i = 1 To Nbc
 
       Set c = Rows(i).Find("Das", , xlValues, xlWhole)
        ' si on l'a trouvé  :    filtre automatique sur cette colonne avec "SANTE" en contenu
'
         If Not c Is Nothing Then Range("A1").AutoFilter c.Column, "SANTE"
 
        Set d = Rows(i).Find("Date_1ereTarification", , xlValues, xlWhole)
         If Not d Is Nothing Then Range("A1").AutoFilter d.Column, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "7/16/2015")
 
        Set e = Rows(i).Find("Date_DemandeSouscription", , xlValues, xlWhole)
         If Not e Is Nothing Then Range("A1").AutoFilter e.Column, Operator:= _
        xlFilterValues, Criteria2:=Array(0, "7/16/2015")
 
Next i

Oui je désire filtrer la date du jour, mon but étant de permettre à la macro de filtrer la colonne correspondante sur l'année 2016 si l'année en cours est 2016.

Voyez-vous ?

[joe.levrai]

non je ne vois pas :hum:

tu veux la date du jour ou pas ?
là tu parles de 2016 si on est en 2016 ... et on fait quoi tant qu'on est en 2015 ? et quand on sera en 2017 ?