Doublons Excel

bonjour à tous,

merci pour vos reponses, je me permet de vous faire une demande sur les doublons mais cette fois je vous joint un fichier excel pour plus de facilité.

ce que je voudrais faire c'est supprimé les ligne en double qui sont injectée dans le fichier et bien sur garder les plus anciennes car dans la collonne M il y à des données qu'il faut garder.

j'espere que cela est clair ?

didier19672

Bonjour,

Attention: les cellules "commentaires Inspecteur" ne sont pas vides (apostrophe),

ici, je les ai vider

Sub Filtre()
'Macro par Claude Dubois pour "didier19672" Excel-Pratique le 01/03/11
Dim Lg%, Rep%
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveSheet.ShowAllData
    On Error GoTo 0
    '--- filtre ---
    Lg = Range("a65536").End(xlUp).Row
    Range("o2") = "=AND(m6="""",COUNTIF(a:a,a6)>1)"
    Range("a5:o" & Lg).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
    Range("o1:o2"), Unique:=False
    Range("o2").ClearContents
    '--- confirmation ---
    If Application.Subtotal(3, Range("a:a")) - 1 > 0 Then
        Application.ScreenUpdating = True
        Rep = MsgBox("On supprime ces lignes ?", vbYesNo + vbCritical + _
        vbDefaultButton2, "Doublons")
        If Rep = vbYes Then
            Range("a6:a" & Lg).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        End If
    End If
    ActiveSheet.ShowAllData
End Sub

Amicalement

Claude

merci Claude,

mais j'ai un petit souci avec la macro, quand je l'execute il me supprime les doublons mais aussi les lignes en double, càd 2 lignes avec le même n° mais sans commentaire sont affichée et la probleme car il faut que j'en garde 1 et l'autre doit etre supprimée

bàt

didier19672

re,

Dans la vie, faut savoir ce qu'on veut !

ligne en double sans commentaire qui doivent etre supprimée

ici, le contrat est rempli

Amicalement

Claude