XL 2016 Doublons sous formule

[guellila]

Bonjour
j'ai un tableau avec des valeurs générer par des formules , je cherche comment supprimer toutes les lignes du tableau ou les valeurs sont en double dans la colonne E sans toucher les lignes ou les cellules contiennent la valeur 0

cdt

 

[patricktoulon]

bonsoir
remonte les dans une boucle d'en bas vers le haut avec un test match (equiv pour excel)
si match <> de la position boucle et <>0 bye bye sinon rien( ca pour effet de garder le dernier des doublons )

si tu veux garder la première occurrence des doublons il te faut boucler d'en haut vers le bas mais compiler avec union les row et deleter l'union après le next

 

[guellila]

merci pour votre support
svp c'est un peux compliquer est-ce que c'est possible de m'expliquer directement sur le fichier

cdt

 

[patricktoulon]

je te fait ça laisse moi 2 mn 😉

 

[patricktoulon]

re
tiens comme ca vite fait
colle ca dans un module

Sub test()
'd'en haut vers le bas
    Dim lig, i, x, p As Range
    lig = Feuil12.Cells(Rows.Count, "E").End(xlUp).Row
    For i = 2 To lig
        If Feuil12.Cells(i, "E").Value > 0 Then
            x = Application.IfError(Application.Match(Feuil12.Cells(i, "E").Value, Feuil12.Columns(5), 0), 0)
            If x <> i Then
                If p Is Nothing Then Set p = Feuil12.Cells(i, "E") Else Set p = Union(p, Feuil12.Cells(i, "E"))
            End If
        End If

    Next
    MsgBox "les lignes a supprimer sont les lignes " & p.Address
    'p.entirerow.delete
End Sub

regarde le message te donne les address des doublons
si ce que tu vois dans le message te convient
debloque la ligne d'en dessous et supprime la ligne msgbox .....

et voila 😉