supprimer des lignes avec condition de date

Re : supprimer des lignes avec condition de date

Bonjour Papapaul,
pas sur d'avoir bien compris mais regardes le fichier joint
et redis moi
a+
Papou 🙂

Re : supprimer des lignes avec condition de date

bonjour Papapaul,Paritec
le code dans module2
à bientôt

Re : supprimer des lignes avec condition de date

Merci beaucoup les amis,
Tu est tout près de ce que je veux Paritec.
Mais je ne maîtrise pas bien les UBound.😕
Je vois qu'en Feuil2, il manque une ligne, la dernière (ligne 16)
de la feuille d'origine. Et puis pour les formats Date, c'est pas
bien grave, j'ai remis dd/mm/yyyy et pas mm/dd/yy.
Merci aussi bébère.
Mais je me suis mal expliqué.
En feuille 3, ne doit apparaître par rapport à la colonne A de la Feuil1
que la ligne entière de chaque item en doublon dans cette colonne
dont la date est la plus récente.

Et en feuille 2 toutes les autres lignes qui sont à item unique
dans la colonne A.
Je met le fichier avec le résultat souhaité en exemple.

Merci à vous deux de me consacrer du temps.🙂

Re : supprimer des lignes avec condition de date

Bonjour Papapaul Bébére
une autre version si tu veux
redis moi
a+
Papou 🙂

PS: pour les formats date je pense que tu n'as pas bien controlé

Re : supprimer des lignes avec condition de date

Re Bébére Papapaul,
alors vu le fichier que tu as envoyé je pense que c'est cette version qui te convient
les doublons supprimés en feuil2 et les doublons les plus récents en feuil3
mais bon, testes et redis moi
a+
Papou 🙂

Re : supprimer des lignes avec condition de date

Re Bebère,
Merci et Chapeau!! Paritec

On va considérer que cette question est résolue.

Ta V3 me convient parfaitement et en plus elle va sûrement m'aider
pour d'autres projets en cours.

Encore bravo et vive XLD

Re : supprimer des lignes avec condition de date

bonjour Papapaul,Paritec
version complétée
à bientôt

Re : supprimer des lignes avec condition de date

Bonjour vous deux,
Vos deux versions me conviennent vraiment bien. Je viens seulement
de voir la dernière de Bébère. pendant ce temps là, jai essayé de peaufiner en faisant copie sur une feuille "Liste" qui se crée pour l'occasion (exemple bien connu de Pierrejean ....Dim existe as String...existe=True ....SheetsAdd:=Sheets("Liste") etc...Merci aussi à lui. Ca j'y arrive.
J'essaye de crée une inputbox ou j'indique la colonne (pas forcément la A)ou sont censés se trouver les doublons, avec la méthode bébère j'y arrive presque (c'est pas fini), avec la méthode Paritec, je suis perdu, je comprends rien aux Ubound.
Dim z As Integer
colref = InputBox("Préciser la colonne ou sont les doublons")
For z = 1 To Range("a65536").End(xlUp).Row
'z = z + 1
On Error Resume Next
Un.Add Range(colref & z), CStr(Range(colref & z))
On Error GoTo 0
Next z

Une fois cela fait, un doubleclick sur un des doublons apparaissant dans ma feuille Liste, me renverra sur sa cellule d'origine dans la Feuil1.
J'ai un vieux truc qui fait ca à partir d'une listbox mais faut que j'adapte.
Je vais ramer mais c'est pas grave, c'est pas urgent.

Je continue à chercher et j'essaierai de mettre tout ca au propre avant de joindre un fichier qui sera plus compréhensible.

Merci tous Vive XLD

Re : supprimer des lignes avec condition de date

Bonjour Papapaul,
alors vu ta réponse, j'ai le sentiment que l'on s'éloigne de beaucoup de ta demande initiale, enfin si tu t'y retrouves c 'est bien.
Mais pourquoi avoir demandé de copier les doublons avant de les supprimer? puis après copier les doublons les plus récents dans une autre feuille là ?????????????????
Si le but final était de supprimer les doublons et de laisser seulement les plus récents trouvés dans la feuille 1 !!!!!
enfin bref
a+
Papou 🙂