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