supprimer des lignes avec condition de date

papapaul

XLDnaute Impliqué
Bonjour à tous,

Supprimer les lignes par rapport a des doublons colonne A
quand cellules A à E de chaque doublon identiques aussi, c'est OK

Problème, pour tous les doublons de la colonne A
les valeur dans A, B D et E sont identiques
mais pas dans la colonne C, les dates sont différentes

Comment supprimer quand même les lignes et ne conserver
que les lignes de doublons ou les dates sont les plus récentes ??

J'essaye de préciser ma question avec le fichier joint

Merci d'avance
 

Pièces jointes

  • supprimer lignes avec condition de dates.xls
    28.5 KB · Affichages: 120

Paritec

XLDnaute Barbatruc
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 :)
 

Pièces jointes

  • supprimer lignes avec condition de dates.zip
    14.7 KB · Affichages: 35
  • supprimer lignes avec condition de dates.zip
    14.7 KB · Affichages: 36
  • supprimer lignes avec condition de dates.zip
    14.7 KB · Affichages: 39

Bebere

XLDnaute Barbatruc
Re : supprimer des lignes avec condition de date

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

Pièces jointes

  • supprimer lignes avec condition de dates.zip
    17.7 KB · Affichages: 27
  • supprimer lignes avec condition de dates.zip
    17.7 KB · Affichages: 27
  • supprimer lignes avec condition de dates.zip
    17.7 KB · Affichages: 30

papapaul

XLDnaute Impliqué
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.:confused:
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.:)
 

Pièces jointes

  • supprimer lignes avec condition de dates_xld.xls
    47.5 KB · Affichages: 49

Paritec

XLDnaute Barbatruc
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é
 

Pièces jointes

  • supprimer lignes avec condition de datesV2.zip
    12.9 KB · Affichages: 23

Paritec

XLDnaute Barbatruc
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 :)
 

Pièces jointes

  • supprimer lignes avec condition de datesV3.zip
    14.6 KB · Affichages: 30

papapaul

XLDnaute Impliqué
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
 

Bebere

XLDnaute Barbatruc
Re : supprimer des lignes avec condition de date

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

Pièces jointes

  • supprimer lignes avec condition de dates.zip
    17.7 KB · Affichages: 33
  • supprimer lignes avec condition de dates.zip
    17.7 KB · Affichages: 36
  • supprimer lignes avec condition de dates.zip
    17.7 KB · Affichages: 35

papapaul

XLDnaute Impliqué
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
 

Paritec

XLDnaute Barbatruc
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 :)
 

Discussions similaires

Membres actuellement en ligne

Aucun membre en ligne actuellement.

Statistiques des forums

Discussions
315 097
Messages
2 116 186
Membres
112 679
dernier inscrit
Yupanki