Retirer seulement un filtre VBA

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:

---

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

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

Code:

---

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

---

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

Celui de la colonne 28 !

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

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

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:

---

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

---

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

Bonjour,

L'enregistreur de macro, comme suggéré, te donne la réponse :

Code:

---

.Range("A1:BE1").AutoFilter Field:=28

---

eric

Ok merci Eric, c'est exactement ce qu'il me fallait !

Code:

---

.Range("A1:BE1").AutoFilter Field:=28

---

:mrgreen: