Filtre excel Date

Fermé

bla - 28 juil. 2015 à 22:12
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

A voir également:

Filtre excel Date
Liste déroulante excel - Guide
Photo filtre gratuit - Télécharger - Retouche d'image
Formule excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
29 juil. 2015 à 10:08

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
29 juil. 2015 à 18:20

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?

Discussions similaires

Prélèvement JM Jacquie et Michel date.

Si une date est supérieure à une autre

Problème Whatsapp - "La date est incorrecte"

Pix

Discussions similaires

Newsletters