Discussion :

[Buleur]

Bonjour tout le monde,

Suite à une discussion que j'ai poster sur le forum a propos de filtrage de tableau. J'ai tenté de voir si on pouvait coder un filtre (ce qui est possible en effet).

J'ai donc écris un code permettant de filtrer un "tableau de départ" avec un critère et de "copier - coller" le résultat sur un autre "tableau de réception des données" dans une autre feuille :

Ce code la fonctionne.

On arrive donc à mon problème : à savoir que quand je rajoute un deuxième critère de filtrage,
Le "tableau de départ "est entièrement "copier - coller" sur le "tableau de réception des données", et le "tableau de départ" est entièrement supprimé.

Si jamais vous aviez des solutions...

En remplaçant les "worksheets" par des "Sheets" j'obtiens le même résultat.

[Invité]

Bonjour,
Tu devrais t'intéresser au filtre actif ou filtre élaboré c'est son métier de faire ça!

[Buleur]

Re-bonjour,

En effet le filtre avancé à l'air d'être très efficace, du coup j'ai tenté d'enregistrer une macro pour la modifier et l'implanter dans mon code.

L'ennui c'est que je ne sais pas pourquoi mais le filtrage ne marche pas et le programme copie et colle le tableau de départ entier dans le tableau de réception des données.

Voici le code :

Je vois pas ou est l'erreur vu que mes deux critères sont dans la zone sélectionnée pour les critères. (Je précise que j'ai respecté la disposition du tableau comme indiqué dans le tutoriel des filtres avancée disponible sur votre site).

[Invité]

Place un exemple de fichier bidonné sens données confidentielles!

[joe.levrai]

Bonjour,

le filtre avancé permet d'exporter le résultat, plutôt que de filtrer sur place et ensuite copier le résultat

utilises l'action XlFilterCopy pour ça, au lieu de xlFilterInPlace


voici l'excellent tutoriel de Philippe : http://philippetulliez.developpez.co...dvancedfilter/

tu y trouveras toutes les données/exemples te permettant de mettre ceci en place

[Buleur]

C'est bon j'ai résolu le problème, j'ai oublier de préciser au programme que la zone de critères (Range("A1:L2")) était dans la "feuil3".

Code :

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

CriteriaRange:=Sheets("Feuil3").Range("A1:L2"), Unique:=False

Vu que je lui avait rien précisé à cette ligne, le programme prenait la zone dans la feuille active (Feuil1), et vu qu'il n'y avait aucun critère dans la zone, il copiait collait tout le tableau.

Maintenant tout fonctionne parfaitement.

Merci encore pour m'avoir informer de l'existence des filtres avancées!!

Avec l'utilisation du XlFilterCopy cela donne :

Code :

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

1
2
3
4
Sub filtre ()
Sheets("Feuil3").Range("A4:L900").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Feuil3").Range("A1:L2"), CopyToRange:=Sheets("Feuil1").Range("A51"), Unique:=False 
End Sub

[joe.levrai]

Merci pour ton feed back qui sera utile pour toute personne future tombant sur ce fil