supprimer doublon dans une BD selon date

Pierrot93

XLDnaute Barbatruc

• 8 Mars 2011

• #2

Re : supprimer doublon dans une BD selon date

Bonjour Malek,

il est préférable de rester sur le même fil, quitte à le remonter si pas de réponse...
https://www.excel-downloads.com/threads/supprimer-doublon-selon-date-plus-recente.159413/
car après, difficile à suivre...

bon après midi
@+

 

Vote positif 0 Vote négatif

M

malek713

Guest

• 8 Mars 2011

• #3

Re : supprimer doublon dans une BD selon date

DSL Pierrot93, j'ai cru que le premier poste n'a pas passé!!

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 8 Mars 2011

• #4

Re : supprimer doublon dans une BD selon date

Bonsoir Pierrot 🙂 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 🙂

 

Vote positif 0 Vote négatif

M

malek713

Guest

• 8 Mars 2011

• #5

Re : supprimer doublon dans une BD selon date

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é..

 

Vote positif 0 Vote négatif

M

malek713

Guest

• 8 Mars 2011

• #6

Re : supprimer doublon dans une BD selon date

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

 

Vote positif 0 Vote négatif