Discussion :

[XceSs]

Bonjour, j'ai un souci avec une macro pour filtrer entre 2 dates les données d'un tableau et les copier dans un nouveau classeur. Cela fonctionne manuellement. Je l'ai enregistré avec l'enregistreur de macro et quand je lance celle-ci, le filtre marche pas :s.

Merci de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Macro1()
    ActiveSheet.Range("D2").Select
    selection.AutoFilter
    ActiveSheet.Range("$D$2:$K$150").AutoFilter Field:=1, Criteria1:=">=13/02/2014", Operator:=xlAnd, Criteria2:="<=17/02/2014"
    ActiveSheet.Range("$D$2:$K$150").SpecialCells(xlCellTypeVisible).Select
    selection.Copy
    Workbooks.Add
    selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Columns("A:A").Select
    Application.CutCopyMode = False
    selection.NumberFormat = "dd/mm/yyyy"
End Sub

[parmi]

Bonjour,

Est-ce que 13/02/2014 est le format de date par défaut dans ta version Windows/Excel ?
C'est-à-dire que si tu entres une date valide dans une cellule, est-ce que c'est ce format que tu vois dans ta barre de formule (jj/mm/aaaa) ?

[XceSs]

Oui c le bon format et j'ai enfin réussi a faire marcher la macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
toto = Feuil3.Range("DEBUTEXPORT").Value2
 titi = Feuil3.Range("FINEXPORT").Value2
 If ActiveSheet.AutoFilterMode = True Then
  ActiveSheet.AutoFilterMode = False
 End If
 [LISTEANOMALIES].AutoFilter Field:=1, Criteria1:=">=" & toto, Operator:=xlAnd, Criteria2:="<=" & titi
 [LISTEANOMALIES].SpecialCells(xlCellTypeVisible).Copy
 Workbooks.Add
 selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

[XceSs]

Merci pour l'aide et bonne soirée