Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Filtrer du 1er jour du mois à aujourd'hui

Filtrer du 1er jour du mois à aujourd'hui

3 réponses
Avatar
Michel
Bonjour
J'ai un tableau classique qui est abondé continuellement :
Date nom prénom etc.
Je souhaite créer une procédure qui filtre le tableau du 1er jour du mois à
aujourd'hui
Merci beaucoup
Michel
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel
Bonjour.
Les dates sont en colonne A sous le format "aaaa/jj/mm" les données en
colonne B :

DebMois = Format(DateSerial(Year(Date), Month(Date), 1), "yyyy/mm/dd")
Range("A1:B1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=" & DebMois,
Operator:=xlAnd _
, Criteria2:="<=" & Date

Cordialement.
Daniel
"Michel" a écrit dans le message de news:

Bonjour
J'ai un tableau classique qui est abondé continuellement :
Date nom prénom etc.
Je souhaite créer une procédure qui filtre le tableau du 1er jour du mois
à aujourd'hui
Merci beaucoup
Michel



Avatar
Daniel
Suite.
Avec des dates au format jj/mm/aaaa :

DebMois = Format(DateSerial(Year(Date), Month(Date), 1), "mm/dd/yyyy")
Range("A1:B1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=" & DebMois,
Operator:=xlAnd _
, Criteria2:="<=" & Format(Date, "mm/dd/yyyy")

Cordialement.
Daniel
"Michel" a écrit dans le message de news:

Bonjour
J'ai un tableau classique qui est abondé continuellement :
Date nom prénom etc.
Je souhaite créer une procédure qui filtre le tableau du 1er jour du mois
à aujourd'hui
Merci beaucoup
Michel



Avatar
Michel
C'est tout simplement parfait
je te remercie beaucoup
Bonne journée
Michel

"Daniel" a écrit dans le message de news:

Suite.
Avec des dates au format jj/mm/aaaa :

DebMois = Format(DateSerial(Year(Date), Month(Date), 1), "mm/dd/yyyy")
Range("A1:B1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=" & DebMois,
Operator:=xlAnd _
, Criteria2:="<=" & Format(Date, "mm/dd/yyyy")

Cordialement.
Daniel
"Michel" a écrit dans le message de news:

Bonjour
J'ai un tableau classique qui est abondé continuellement :
Date nom prénom etc.
Je souhaite créer une procédure qui filtre le tableau du 1er jour du mois
à aujourd'hui
Merci beaucoup
Michel