Supprimer lignes en doublons

Bonjour à tous,

J'ai un tableau avec 18 colonnes (de A à R) avec un nombre de lignes illimité

Je voudrai supprimer les lignes en doublons avec les meme données dans les colonnes A à R mais en gardant une des lignes

Ci joint un extrait du fichier (nb de lignes illimités), les lignes en rouge sont en doublons

Merci d'avance

Bonjour,

Pour un filtrage sans doublons, tu peux tester ceci. Attention, à faire sur une copie de ton classeur pour voir si c'est le résultat attendu !

Attention seuls les doublons strictement identiques seront supprimés, si une seule des cellules dans deux lignes qu'ont pense identiques est différente, les deux lignes ne sont pas considérée comme doublon :

Sub Doublons()

    Dim Plage As Range
    Dim Cel As Range
    Dim DL As Long
    On Error Resume Next

    Application.ScreenUpdating = False

    'toute la zone utilisée sur la feuille
    Set Plage = ActiveSheet.UsedRange

    'cellule où coller la plage filtrée
    Set Cel = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)

    'filtre sans doublons. Attention seuls les doublons strictement identiques
    'seront supprimés, si une des cellules dans deux lignes qu'ont pense identiques
    'est différente, la ligne n'est pas considérée comme doublon
    Plage.AdvancedFilter xlFilterCopy, , Cel, True

    'supprime la page originelle
    Plage.Delete

    Application.ScreenUpdating = True

End Sub

Hervé.

Merci Theze

Je viens de tester sa l'air de fonctionne impec

Merci beaucoup

Je viens de tester sur le fichier original (+ de 8000 lignes ) et le programme bug et change ma mise en page ( la 1ere ligne du tableau arrive en dernier

As tu une idée d'où cela peut venir??

Bonjour a tous,

Une solution svp !!!!!

Bonjour,

Selectionne ta plage

Va dans l'onglet DONNEES

Puis supprimer les doublons

Cordialement

Merci lionel95x

Mais je connais cette manip et c'est pas ce que je recherche

Je cherche un systeme via vba

Voici ton MACRO

Le 2 = ligne de debut

Le 100 = Ligne de fin

Modifie a ta guise

Sub Macro1()

Range("A2:P100").Select

ActiveSheet.Range("$A$2:$P$100").RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7 _

, 8, 9, 10, 11, 12, 13, 14, 15, 16), Header:=xlNo

End Sub

Je viens de tester sa marche

Merci lionel95x

bonjour à tous,

J'ai un soucis sur la partie doublons, je souhaiterai ne pas autoriser les doublons si c'était en sql sa serait facile et en vba comment on fait pour automatiser le refus de doublons pour des cellules qui sont fusionné (dois-je tricher voir post Copier et coller des cellules fusionnées!!!! ). Ce que j'aimerai encore mieux faire c'est de supprimer le mot choisi directement dans la liste est ce possible.

Je vous met le code mais sa ne fonctionne pas car il est trop "stu...." ce code. il me renvoie vrai ou faux ce que j'ai surligné et écris doublon sur la colonne N

(c'est moi qui est demandé d'écrire doublons là il y a un doublons

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''doublons'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    For CptLg = PreLig To DerLigCol - 1
        For CptDlt = PreLig + 1 To DerLigCol
           If Cells(CptLg, DerCol) = Cells(CptDlt, DerCol) Then
                Cells(CptLg, DerCol + 3) = "doublons"
            End If
        Next 'Exit Sub
    Next
End Sub

c'est bon j'ai trouvé mon erreur, je dois pas partir de la première ligne plus 1 mais de la ligne courante plus 1

    For CptLg = PreLig To DerLigCol - 1
        For CptDlt =CptLg + 1To DerLigCol
             If (Cells(CptLg, DerCol) = Cells(CptDlt, DerCol)) Then
                Cells(CptDlt, DerCol + 3) = "doublons"
            End If
        Next 'Exit Sub
        

bien sur je n'ai pas fini le code, à vous de voir ce que vous souhaitez faire quand vous avez un doublon

cordialement