Vérification Macro - Suppression de lignes - Dates

Bonjour,

J'utilise cette macro créée grâce à @curulis57 dans cette discussion https://forum.excel-pratique.com/excel/suppression-multiple-de-lignes-selon-une-reference-159754/2

Elle sert à conserver une date en particulier parmi plusieurs lignes.

Cependant, je ne sais pas pourquoi aujourd'hui, Excel ne supprime plus les lignes et les range seulement par ordre croissant (depuis le 1er du mois). Je travaille avec Excel 2019. Avez vous le même problème svp ?

Je vous remercie pour votre aide.

Cordialement

Bastien

Salut Bastien,

première piste : peux-tu vérifier et te discipliner à formater ta colonne [A:A] en DATE et non en format STANDARD ?

A+

Bonjour,

J'ai tenté de modifier ceci et cela semble fonctionner :

dDate = CDate(sDate)

devient :

sDate = Format(CDate(sDate), "dd/mm/yyyy")

Set rCelA = .Columns(1).Find(what:=sDate, lookat:=xlPart, LookIn:=xlFormulas, searchdirection:=xlNext)
Set rCelB = .Columns(1).Find(what:=sDate, lookat:=xlPart, LookIn:=xlFormulas, searchdirection:=xlPrevious)

et la recherche de sDate change aussi

Merci pour votre aide, cela m'a guidé.

Cordialement

Bastien