filtre

[Alex]

Bonjour a tous,

Voila je voudrait filtrer des données par le biais de VBA

donc je met ce code :

last = Range('A65356').End(xlUp).Row

Range('A2:A' & last).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range('F31:F50'), Unique:=True
Range('F12').Select

Mais je voudrais ajouter une codition a ce filtre dans la colonne D il faut que la valeur de la cellule soit = 'test'

Comment faire

Merci d'avance

Alex

 

[Alex]

Re- Bonjour,

Personne n'a une petite idée??

Merci d'avance

 

[Charly2]

Bonjour Alex, bonjour à toutes et à tous

Pour ce que tu souhaites faire, tu as simplement oublié le principal : la zone de critère(s).

En admettant que ton tableau ait pour nom 'MonTableau' (lignes de titres incluses), et ton critères de 2 lignes nommées 'MonCritere', i.e. titre de ta colonne D et dans la colonne juste dessous : 'test' (sans les guillemets), tu peux coder de cette façon :

Range('MonTableau').AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range('MonCritere'), _
    CopyToRange:=Range('F31:F50'), Unique:=True

En espérant avoir répondu à ta demande.

A+

 

[Alex]

Bonjour charly

Déja merci pour ta réponse

Malheureusement je ne parviens pas a faire fonctionner ce filtre dans mon fichier
il ne tient pas compte du critère

Date Timbre Date Réception Catégorie
03/10/2005 30/09/2005 Wet sifter
03/10/2005 30/09/2005 Wet sifter
03/10/2005 30/09/2005 Wet sifter
03/10/2005 30/09/2005 Wet sifter
03/10/2005 30/09/2005 Wet sifter
03/10/2005 30/09/2005 Wet sifter
11/10/2005 30/09/2005 test
03/10/2005 30/09/2005 Wet sifter
03/10/2005 30/09/2005 Wet sifter
03/10/2005 30/09/2005 test
03/10/2005 30/09/2005 test
03/10/2005 30/09/2005 Wet sifter

En fait j'ai un fichier excel de ce type
et je voudrait filtrer pour n'obtenir que les date de timbre ( et ce sans doublons) ayant pour catégorie 'test'

Peut tu m'éclaircir les idées stp

Merci d'avance

Alex

 

[Charly2]

re Alex,

Voici un fichier exemple qui reprend ce que j'ai expliqué dans le post précédent.

[file name=Alex_FiltreElabore.zip size=9672]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Alex_FiltreElabore.zip[/file]

A+