Bonjour à tous,

Dans le fichier joint, j'aimerais extraire des données selon deux critères en utilisant les filtre automatique ou élaboré :

- Nom de site

- Mois choisi en F2


Tout en calculant la durée totale de chaque site pendant la période allant de 01/08/2012 00:00 au 01/09/2009 00:00

J'ai essayé d'appliquer un filtre automatique, sur la base, mais je n'ai rien obtenu :

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
Sub Macro1()
'
' Macro1 Macro
'
 
'
    [A1:D50].AutoFilter
    ActiveSheet.Range("$A$1:$D$15").AutoFilter Field:=2, Criteria1:= _
                                               ">31/07/2012 23:59", Operator:=xlAnd
    ActiveSheet.Range("$A$1:$D$15").AutoFilter Field:=3, Criteria1:= _
                                               "<01/09/2012 00:00", Operator:=xlAnd
    Range("A2:A14").Select
    Selection.Copy
    Range("G2").Select
    ActiveSheet.Paste
    Range("E7").Select
End Sub
Merci d'avance.