[VBA E] Filtrer col non adjacente

Version imprimable

09/01/2007, 10h14
totoche

[VBA E] Filtrer col non adjacente
Bonjour,

J'ai un tableau qui se compose de 10 colonnes, et je tente de désigner 2 colonnes (non adjacente) comme filtre;
Code:

1 2 3 4 5 6 7 8 'FILTRE ANNEE Columns("J:J").Select Selection.AutoFilter 'FILTRE MOTIFS Columns("G:G").Select Selection.AutoFilter
Le code du second filtre me supprime le filtre inséré sur la colonnne J
Merci de votre aide
09/01/2007, 11h09
ouskel'n'or
Tu dois appliquer un filtre automatique sur toute la plage de donnée puis sélectionner tes colonnes et appliquer tes critères
Code:

1 2 3 4 5 Critère1 = "1000" Critère2 = "30" Cells.AutoFilter Columns("J:J").AutoFilter Field:=10, Criteria1:=Critère1 Columns("G:G").AutoFilter Field:=7, Criteria1:=Critère2
10 et 7 étant le N° de colonne (!!!) (je le découvre)
A+
09/01/2007, 11h12
Theocourant

Bonjour,

Structurellement, il semble en effet qu'il soit impossible de définir un filtre sur 2 colonnes non-adjacentes...

J'ai testé ceci :

Code:

Range("J:J", "G:G").Columns.AutoFilter

mais cela définit un filtre sur chaque colonne entre G et J ...

Théo
09/01/2007, 11h14
Theocourant
Citation:
Envoyé par ouskel'n'or

Tu dois appliquer un filtre automatique sur toute la plage de donnée puis sélectionner tes colonnes et appliquer tes critères

Code:

1 2 3 4 5 Critère1 = "1000" Critère2 = "30" Cells.AutoFilter Columns("J:J").AutoFilter Field:=10, Criteria1:=Critère1 Columns("G:G").AutoFilter Field:=7, Criteria1:=Critère2

10 et 7 étant le N° de colonne (!!!) (je le découvre)
A+
Je ne connaissais pas : je vais tester également.

EDIT : Je viens de tester : cela ne fonctionne pas... cela applique un filtre sur toutes les colonnes ayant au moins une cellule avec une valeur.
09/01/2007, 11h48
totoche

J'ai le même résultat que toi THEO:(
09/01/2007, 12h03
ouskel'n'or

Curieux, pour l'essai je viens de recopier une colonne filtrée sur une nouvelle colonne triée différemment et le filtre est bien demeuré sur les colonnes indiquées, pas sur les autres (vba 97)
Je vérifie sur 2003 -> Ok sur Excel 2003 aussi
09/01/2007, 21h24
totoche

1 pièce(s) jointe(s)

J'y arrive pas :mur:
J' envoi mon fichier ...
09/01/2007, 23h00
ouskel'n'or

Pièce jointe 8435
Pour qu'un filtre double fonctionne, il faut que les deux critères soient remplis sur la ligne... Je pense que je ne t'apprends rien mais c'est mieux en le disant.
Pour montrer qu'il fonctionne bien, j'ai mis les mêmes valeurs sur deux lignes différentes mais c'est bien l'objet d'un filtre que de les retrouver ;)
Tu dis
A+
10/01/2007, 09h08
totoche

1 pièce(s) jointe(s)

Merci & Ok sur le principe, mais ce que je cherche a faire c'est que les colonnes qui ne font pas parties des critères de filtres n'aient pas de flêche associées...
Dans le zip que je transmets, le probleme c'est que pour ce résultat les colonnes doivent être adjacentes...

Je pense qu'il va falloir que je code un peu +
10/01/2007, 09h30
ouskel'n'or
Une solution consisterait à copier le résultat du filtre sur une autre feuille. SilkyRoad a donné une solution il y a peu de temps, consistant à ne copier que les lignes visibles de ta feuille filtrée.
Une fois la copie réalisée sur une feuille vide, le plus simple serait de supprimer les colonnes inutiles.
Code:

1 2 Worksheets("Feuil1").AutoFilter.Range.SpecialCells(xlCellTypeVisible).Copy _ Destination:=Worksheets("Feuil2").Cells(1, 1)
Te reste plus qu'à supprimer les colonnes et à expédier le document en supprimant feuil1 et en le sauvegardant sous un autre nom
A+