Discussion :

[antoinesoph]

Bonjour au forum,
J’ai ma base de données dans la laquelle la 1er colonne contient des dates.

La colonne 6, contient des codes ISO de pays.

La macro suivante permet de filtrer la base de données, de la colonne 6 avec comme critère « FR ».

Une fois le filtre effectué par la macro, je voudrai copier uniquement les données contenant la date d’hier, soit le 16/11/2016 vers un autre fichier SYNTHESE.

Comment effectuer cette requête ? Pouvez-vous m'aiguiller ?

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1()
 
 
    Windows("FICHIER XXXXX.xlsx").Activate
    Sheets("base").Select
    Range("A3").AutoFilter
    Range("A3:N" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=6, Criteria1:="FR"
 
End Sub

[RyuAutodidacte]

Bonjour,
Dans ce cas là tu filtre aussi la colonne des dates avec la date d'aujourd'hui -1
Puis tu copie seulement les cellules visibles et colle à l'endroit voulu
Utilise l'enregistreur de macro, cela te donnera un code tout fait prêt à l'emploi ( bien sûr il faudra le rectifier un peu pour enlever les imperfections)

[joe.levrai]

Bonjour,

dans le billet suivant : http://www.developpez.net/forums/blo...nt-2-criteres/

une proposition réalise un filtrage sous 2 critères (dont un double critère sur une même colonne) et en supprime les résultats

il suffit de remplacer la suppression par une copie, et d'aménager les deux critères car l'un des deux (le premier) n'est pas un filtre automatique mais une détection de cellule

si ça peut t'être utile

[Menhir]

Code :

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

1
2
3
4
5
6
Sub Macro1()
    Workbooks("FICHIER XXXXX.xlsx").Sheets("base").Activate
    Range("A3").AutoFilter
    Range("A3:N" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=6, Criteria1:="FR"
    Range("A3:N" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Workbooks("SYNTHESE.xlsx").Worksheets(1).Range("A1")
End Sub

[patricktoulon]

re
on ne pends que les "FR" en colonne 6 et les date d'hier en colonne A

Code :

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

1
2
3
4
5
6
7
8
Sub test1()
   With Range("A3:N" & Range("A" & Rows.Count).End(xlUp).Row)
        .AutoFilter Field:=1, Criteria1:=Date - 1    'on ne prend que les date d'hier soit le 18 car on est le 19
        .AutoFilter Field:=6, Criteria1:="FR"    'on ne prend que les "FR"
        .SpecialCells(xlCellTypeVisible).Copy Workbooks("SYNTHESE.xlsx").Worksheets(1).Range("A1") 'on transfert le resultat
        .AutoFilter    'on enleve le filtre
    End With
End Sub

a+

[antoinesoph]

Code :

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

1
2
3
4
5
6
Sub Macro1()
    Workbooks("FICHIER XXXXX.xlsx").Sheets("base").Activate
    Range("A3").AutoFilter
    Range("A3:N" & Range("A" & Rows.Count).End(xlUp).Row).AutoFilter Field:=6, Criteria1:="FR"
    Range("A3:N" & Range("A" & Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Copy Workbooks("SYNTHESE.xlsx").Worksheets(1).Range("A1")
End Sub

Bonjour,

Avec ton code, il me sélectionne bien la base avec le filtre "FR", mais il me copie toute la base.
Je ne veux uniquement qu'il me copie les données de la veille.

[patricktoulon]

re
bonjour
li le post #5

[RyuAutodidacte]

Bonjour,
As tu lu le post #2 et #5

Edit : Hi Patrick, Marc

[antoinesoph]

Bonjour,
As tu lu le post #2 et #5

Edit : Hi Patrick, Marc

Bonjour,

Oui, j'ai bien lu les posts 2 et 5, et malgré çà, je suis toujours bloqué.

[patricktoulon]

oui effectivement quand on travail sur deux classeurs différents il se peut que copy>>>destination déraille

alors on activâtes
je n'ai pas testé mais on doit pas être loin

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
Sub test1()
    Workbooks("FICHIER XXXXX.xlsx").Sheets("base").Activate
    With Range("A3:N" & Range("A" & Rows.Count).End(xlUp).Row)
        .AutoFilter Field:=1, Criteria1:=Date - 1    'on ne prend que les date d'hier soit le 18 car on est le 19
        .AutoFilter Field:=6, Criteria1:="FR"    'on ne prend que les "FR"
        .SpecialCells(xlCellTypeVisible).Copy
        Workbooks("SYNTHESE.xlsx").Activate
        With .Worksheets(1)
            .Activate
            .Range("A1").Select
            .Paste
        End With
        'on transfert le resultat
        .AutoFilter    'on enleve le filtre
    End With
End Sub

[Marc-L]

Bonjour,

vite fait en passant, je rappelle la pourtant simple méthode Range.Copy (comme Delete du reste) sur une plage filtrée
prend en compte uniquement les cellules visibles …

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …