chris6999
XLDnaute Impliqué
Bonjour
Je souhaiterais supprimer les lignes en doublon par rapport au critère de la colonne D.
J'ai trouvé pas mal de réponses pour conserver les lignes les plus récentes moi je veux conserver celles du haut (cellules vertes), c'est à dire les plus anciennes (cellules jaunes).
J'ai trouvé un code mais qui semblait correspondre mais qui ne fonctionne pas trop ..
Sub TEST()
For i = 1 To Range("D65535").End(xlUp).Row
If Range("D" & i).Value > "" Then
If Application.WorksheetFunction.CountIf(Range("D1" & Range("D65535").End(xlUp).Row), _
Range("D" & i).Value) > 1 Then Range("D" & i).EntireRow.Delete
End If
Next i
End Sub
Je mets mon fichier en PJ et vous remercie par avance pour vos conseils.
Bonne journée à tous
Je souhaiterais supprimer les lignes en doublon par rapport au critère de la colonne D.
J'ai trouvé pas mal de réponses pour conserver les lignes les plus récentes moi je veux conserver celles du haut (cellules vertes), c'est à dire les plus anciennes (cellules jaunes).
J'ai trouvé un code mais qui semblait correspondre mais qui ne fonctionne pas trop ..
Sub TEST()
For i = 1 To Range("D65535").End(xlUp).Row
If Range("D" & i).Value > "" Then
If Application.WorksheetFunction.CountIf(Range("D1" & Range("D65535").End(xlUp).Row), _
Range("D" & i).Value) > 1 Then Range("D" & i).EntireRow.Delete
End If
Next i
End Sub
Je mets mon fichier en PJ et vous remercie par avance pour vos conseils.
Bonne journée à tous