Doublon garder 1ère ligne et dernière ligne

Bonjour,

Sur mon fichier ci-dessous, en cas de doublon sur la colonne A et pour chaque doublon, je voudrais garder uniquement le 1ère ligne et la dernière ligne de ceux-ci (supprimer les autres lignes).

Pouvez vous m'aider là dessus svp ?

Merci

Bonjour Aston, Bonjour le Forum,

Pour ton problème je passerais par une boucle qui test une ligne et les deux qui suivent :

Sub SuppDoublon()
Dim x As Long, y As Long
x = Range("A" & Rows.Count).End(xlUp).Row
For y = 2 To x
    If Cells(y + 1, 1) = "" Then
        Exit For
    Else
        If Cells(y, 1) = Cells(y + 1, 1) And Cells(y + 2, 1) = Cells(y, 1) Then
            Rows(y + 1).Delete
            y = y - 1
        End If
    End If
Next
End Sub

Édit : Salut Jmd

Restant à dispo

bonjour

salut Juice au passage

je déconseille formellement de supprimer des datas

un TCD devrait suffire pour montrer les minis et les maxis

pas de VBA

à quoi sert ce fichier, d'où vient-il et à quoi servent les minis et maxis ?

amitiés

jmd a écrit :

bonjour

salut Juice au passage

je déconseille formellement de supprimer des datas

un TCD devrait suffire pour montrer les minis et les maxis

pas de VBA

à quoi sert ce fichier, d'où vient-il et à quoi servent les minis et maxis ?

amitiés

Bonjour Aston Jmd et Juice .

En effet TCD, en plus d'après sa demande il ne veut pas supprimer tous les doublons puisque qu'il en conserve minimum deux de

chaque ( un avec la date la plus ancienne et un autre avec la date la plus récente )

Si j'ai bien lu sa demande et au vue de son image.

Au moins avec TCD il pourra appliquer filtrer les dates en même temps