Discussion :

[totoche]

Bonjour,

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

Code :

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

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

[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 :

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

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+

[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 VB :

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

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

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

Théo

[Theocourant]

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

Code :

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

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.

[totoche]

J'ai le même résultat que toi THEO

[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

[totoche]

J'y arrive pas
J' envoi mon fichier ...

[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+

[totoche]

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 +

[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 :

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

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+