Discussion :

[jords]

Bonjour, j'ai un petit soucis concernant l'automatisation d'un filtrage.

En fait je voudrais que mon 2ème critère de filtrage sur ma base de donnée dans ma 2ème feuille soit la date (aujourdhui - 1) qui est dans la cellule E1 de ma première feuille. J'ai bien tenté quelque chose mais ça ne marche pas

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
Sub taités171()
'
'
'
 
'
Dim i As String
i = Sheets("Feuil1").Cells(5, 1)
Sheets("171").Select
 
'filtre sur le premier critère
 
    ActiveSheet.Range("$A$1:$AJ$16259").AutoFilter Field:=3, Criteria1:=Array( _
        "1", "2", "3", "4", "5", "6"), Operator:=xlFilterValues
 
'filtre sur le 2ème critère
 
         ActiveSheet.Range("$A$1:$AJ$16259").AutoFilter Field:=3, Operator:= _
        xlFilterValues, Criteria2:=Array(2, i)
 
end sub

quelqu'un peut-il m'aider ???

Merci d'avance pour vos réponses

[Bear the french]

Bonsoir jords,

Quelques remarques :

REM1 : .AutoFilter Field:=3 indique un tri avec la troisième colonne de ta sélection... Hors ton premier tri et ton deuxième tri partage un filtre sur la même colonne...

REM2 : Si tu veux que i soit une date, je ne pense pas qu'il soit opportun de la déclarer comme

Code :

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

Dim i As String

Mais plutôt comme

Code :

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

Dim i As Date

Enfin je le suppose.

REM 3 : un tableau avec des variables avec différents formats, ça me parait trop beau pour fonctionner (à confirmer) :

Code :

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

Criteria2:=Array(2, i)

2 est un INTEGER ou un LONG alors que i est un STRING ou une DATE

Bertrand