[VBA E] Filtrer col non adjacente

**totoche** · 09/01/2007, 10h14

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** · 09/01/2007, 11h09

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** · 09/01/2007, 11h14

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 :

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** · 09/01/2007, 11h48

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

**ouskel'n'or** · 09/01/2007, 12h03

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