Filtre excel Date

bla -
bla - 29 juil. 2015 à 18:20

Bonjour,

J'ai un tableau avec une colonne date et j'ai besoin de filtrer les lignes dont les dates sont comprises entre aujourd'hui et aujourd'hui-10 (cells(3,21) et cells(4,21))

Voici mon code mais cela ne marche pas

Sub Macro4()

Datedebut = CDate(Format(Cells(3, 21).Value, "dd/mm/yyyy"))
Datefin = CDate(Format(Cells(4, 21).Value, "dd/mm/yyyy"))


    ActiveSheet.ListObjects("Tableau26").Range.AutoFilter Field:=3, Criteria1:= _
        ">=" & Datedebut, Operator:=xlAnd, Criteria2:="<=" & Datefin
        
End Sub

Une idée pour moi?

Merci d'avance

Afficher la suite

A voir également:

Filtre excel Date
Photo filtre 7 gratuit - Télécharger - Retouche d'image
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Déplacer colonne excel - Guide
Si ou excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 713

Bonjour,

convertir en les dates en nombres

Sub Macro4()
    ActiveSheet.ListObjects("Tableau26").Range.AutoFilter Field:=3
    Datedebut = CDate(Format(Cells(2, 2).Value, "dd/mm/yyyy"))
    Datefin = CDate(Format(Cells(3, 2).Value, "dd/mm/yyyy"))

    ActiveSheet.ListObjects("Tableau26").Range.AutoFilter Field:=3, Criteria1:= _
        ">=" & CLng(Datedebut), Operator:=xlAnd, Criteria2:="<=" & CLng(Datefin)
        
End Sub

bla

Super ça marche, merci!

Par contre je voulais effectuer des calculs après sur les cellules filtrées mais si je fais ma boucle while sur les lignes avec une variable i et i=i+1 en fin de boucle, le calcul ne prend pas en compte le filtre effectué auparavant...

Savez-vous comment remédier à ce problème?

Votre réponse