Discussion :

[Hercule55]

Bonjour,

J'ai écris ce code où je filtre sur plusieurs colonnes avec des boucles pour effectuer des calculs.
Pour passer d'une étape à une autre j'ai besoin de "défiltrer" une colonne.
Je ne trouve pas de fonction permettant de faire ceci.

Voici mon code :
J'ai utilisé une solution moche pour permettre d'effacer le filtre (réduisant la date de départ et augmentant la date de fin / Entre le calcul 1 et le calcul 2) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 ' Calcul 1
    i = 1
    While StartDate < EndDate
        .Range("A1:BE1").AutoFilter Field:=28, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & StartDate + 91
        Cells(5, 1 + i).Value = Application.Subtotal(3, .Range("AB:AB")) - 1
         StartDate = DateAdd("m", 3, StartDate)
        i = i + 1
        Wend
 
       .Range("A1:BE1").AutoFilter Field:=28, Criteria1:=">=" & StartDate - 1000000, Operator:=xlAnd, Criteria2:="<=" & StartDate + 1000000
 
' Calcul 2
    StartDate = Range("Graph!A28").Value
    EndDate = Range("Graph!A29").Value
   etc 
   etc

Je cherche soit une fonction annulant le filtre de la colonne 28 ou une solution pour filtrer la colonne 28 avec toutes les valeurs (de type Criteria1:="*")

Merci d'avance

[BENNASR]

bonsoir
je crois que pour annuler tous les filtres : à tester

Code :

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

1
2
3
4
5
'désactiver les filtres sur tous les feuilles
  On Error Resume Next
For Each sh In Sheets
    sh.ShowAllData
Next sh

[Hercule55]

Je sais annuler tout les filtres mais la je souhaite enlever qu'un seul filtre.

Celui de la colonne 28 !

[Menhir]

On ne peut pas.
Il faut retirer le filtre et le replacer avec la condition à enlever en moins.

[BENNASR]

et si vous démarrez l'enregistreur automatique du macro?? est ce que ça donne qq chose??

[Hercule55]

Menhir,

Dans le cas de mon code comment je pourrais le replacer avec la condition à enlever en moins de manière propre ?

Voici comment je fais actuellement pour enlever mes dates de sélection :

Code :

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

1
2
 
.Range("A1:BE1").AutoFilter Field:=28, Criteria1:=">=" & StartDate - 1000000, Operator:=xlAnd, Criteria2:="<=" & StartDate + 1000000

[Philippe Tulliez]

Bonjour,
Si j'ai bien compris ta demande, tu souhaites placer un filtre sur certaines colonnes d'une liste de données (masquer certaines flèches du filtre)
Si c'est bien le cas, ce billet intitulé VBA Excel – Comment masquer les flèches du filtre de certaines colonnes répondra sans doute à tes attentes