Discussion :

[_debutant]

Salut,
Je voudrais créer un bouton filtrage qui dans le fichier en bas,
le parcours jusqu’à la fin et ne garde que la première ligne sur base de ID (enlevé les doublons) avec la macro en bas, mais ne fonctionne pas:

Code :

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

1
2
3
4
Sub Filtrage()
    Range("A1").Select
    Range("$A:$C").AdvancedFilter Action:=xlFilterCopy, CopyTosheet:=  'sheet_copy', Unique:=True
End Sub

ID Num_Dem Date de demande
663664 10 1/11/2011
663664 10 1/11/2011
663664 10 1/11/2011
663664 10 1/11/2011
663664 10 1/11/2011
702844 9 1/10/2011
702844 9 1/10/2011
702844 9 1/10/2011
702844 9 1/10/2011
702844 9 1/10/2011
705734 7 1/04/2011
705734 7 1/04/2011
705734 7 1/04/2011
705734 7 1/04/2011
705734 7 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/10/2011
709044 11 1/13/2011
726284 1 1/13/2011
726284 1 1/13/2011
726284 1 1/13/2011
726284 1 1/13/2011
726284 1 1/13/2011
726284 1 1/06/2011
727394 40 1/06/2011

[jfontaine]

Bonjour,

il ne me semble pas que l'argument "CopytoSheet" existe.
Essais de filtrer sur la meme feuille puis de couper/ collet le filtrage dans la feuille finale

[_debutant]

merci jfontaine.
c'est un gros fichier journalier, et je voudrais automatiser ce travail avec un bouton qui filtre et qui copie dans une sheet finale.

[jfontaine]

Un exemple

Code :

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

1
2
3
4
5
 
Columns("A:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("J1"), Unique:=True
Range("J1").CurrentRegion.Select
Selection.Cut
Sheets("Feuil2").Paste

[mercatog]

Bonsoir Jérôme
Je n'ai pas pu m'empêcher pour virer le Select de ton code (vous m'en excusez certes)

Code :

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

1
2
3
4
5
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    .Columns("A:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("J1"), Unique:=True
    .Range("J1").CurrentRegion.Cut Worksheets("Feuil2").Range("A1")
End With

[jfontaine]

Salut Mercatog,

Il n'y a aucun problème

[_debutant]

donc , je crée un bouton et j'affecte une macro avec le code.
Merci les gars.
ps: excuse, je débute dans le truc.

PS:

ça marche qu'en partie, il supprime bien le doublons avec le filtre élaboré, mais il
l'écrit à coté a partir de J1.
mais il ne crée pas la Feuil2 et ne fait pas le coller avec un message d'erreur

il pointe (Sheets("Feuil2").Paste) !!!!!

[jfontaine]

Remplace "Feuil2" par le nom d l'onglet de destination