Suppression des lignes en doublon

[maya01]

Bonjour,

J'aimerais avoir une macro qui me supprime les lignes en doublon dans chaque feuille de mon dossier Excel.
Les lignes en doublon (avec même données dans chaque colonne de la ligne) ne se suivent pas forcément.

merci d'avance pour votre réponse.

Cordialement

maya

 

[Simons]

Re : Suppression des lignes en doublon

salut Maya,

Il y a déja eu pas mal de fils a ce sujet.
Merci de faire une recherche.

 

[maya01]

Re : Suppression des lignes en doublon

bonjour,

Je sais que le sujet est largement abordé, j'ai effet essayé les programmes
proposés mais dans mon cas cela n'a pas l'air de marcher.
J'aurais du préciser en effet que ma grosse base de données est sectionnée en groupes (menu / données et créer un plan / grouper) , et apparemment ca empêche la macro de suppression de ligne de fonctionner.

si vous avez une suggestion, je suis preneuse

cordialement,

maya

 

[Gorfael]

Re : Suppression des lignes en doublon

bonjour,

Je sais que le sujet est largement abordé, j'ai effet essayé les programmes
proposés mais dans mon cas cela n'a pas l'air de marcher.
J'aurais du préciser en effet que ma grosse base de données est sectionnée en groupes (menu / données et créer un plan / grouper) , et apparemment ca empêche la macro de suppression de ligne de fonctionner.

si vous avez une suggestion, je suis preneuse

cordialement,

maya

Salut
Le mode plan ne change rien quand à la disponibilité de suppression. Par contre ça risque de mettre un beau bordel dans les groupe suivant les lignes supprimées.

Sub Test()
Dim X As Long
Dim Y As Long
Dim Z As Integer
Dim Flg_Suppr As Boolean

For X = Cells.SpecialCells(xlCellTypeLastCell).Row To 2 Step -1
    For Y = X - 1 To 1 Step -1
        Flg_Suppr = True
        For Z = 1 To Cells.SpecialCells(xlCellTypeLastCell).Column
            If Cells(Y, Z) <> Cells(X, Z) Then
                Flg_Suppr = False
                Exit For
            End If
        Next Z
        If Flg_Suppr = True Then Exit For
    Next Y
    If Flg_Suppr Then Rows(X).Delete
Next X
End Sub

A+

 

[maya01]

Re : Suppression des lignes en doublon

Merci pour ce programme, ca marche... bon c'est super long mais ca marche !

a+