supprimer doublon selon date plus récente

[malek713]

Bonjour Forum,
Pourriez vous m'aider dans l'élaboration d'une macro qui supprime des doublon dans une base de données sous condition de date.
c'est à dire supprimer la ligne doublé dont la date est la plus ancienne..

merci d'avance...

 

[laetitia90]

Re : supprimer doublon selon date plus récente

bonjour malek tu tiens compte de quelle date colonne f ou g ??

 

[malek713]

Re : supprimer doublon selon date plus récente

Salut laetitia90 et merci pour d'avoir répondre 🙂

En faite puisqu'il s'agit des dates de début et dates de fin, il suffit de choisir une d'entre elle..
La colonne G par exemple

merci

 

[Paritec]

Re : supprimer doublon selon date plus récente

Bonsoir Pierrot 🙂 , laetitia90🙂 malek 713
en voilà un fichier qu'il est bien expliqué !!!!
Bravo bravo bravo
Je suppose que comme tu n'as pas mis de commentaire sur ce qui doit être fait dans ton fichier on doit deviner que les lignes de même couleur doivent être traitées comme des lignes identiques ??
alors 1 A F DEV PROB et identique à 10 A S DEV POT PROB ?????????,,
ou sont donc les doublons? ou que doit-on considérer, et comparer dans ce beau fichier ???
Bref pour moi la suite c'est après des explications précises et sérieuses
a+
Papou 🙂

PS: De plus indique nous aussi sur quel fil tu souhaites continuer !!!!! ??????
tu en a ouvert 2 identiques donc là aussi il faut retirer le doublon !!!!!!!!!!!!!!!!!!!!!!!!!!
http://www.excel-downloads.com/forum/159425-supprimer-doublon-dans-une-bd-selon-date.html#post961383

 

[laetitia90]

Re : supprimer doublon selon date plus récente

bonjour papou 🙂,pierrot 🙂 sur l'autre post
effectivement il faut deviner je pense que c'est la colonne B ??
sans optimiser le code avec Dictionary on verra aprés deja

Sub es()
Dim i As Long, j As Long
Application.ScreenUpdating = False
For i = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
For j = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(j, 2) = Cells(i, 2) Then
If Cells(j, 6) < Cells(i, 6) Then
Cells(j, 1).EntireRow.Delete
End If: End If
Next j: Next i
End Sub

 

[malek713]

Re : supprimer doublon selon date plus récente

les lignes avec les meme couleur c'est juste pour montrer les doublons...
les doublons c'est par rapport à la colonne "id"
chaque "id" doit apparaitre une seule fois dans la base..

Dsl si j'ai pas bien expliqué..

 

[malek713]

Re : supprimer doublon selon date plus récente

merci laetitia90 !!
je vais tester ca 🙂

 

[malek713]

Re : supprimer doublon selon date plus récente

Encore Merci laetitia90 🙂 🙂
Ca marche très bien!!