Macro filtrer puis supprimer les doublons

[LeRevenant]

Salut les gens, le revenant est de retour mdr

Tout est dit dans le titre, j'aimerais d'abord filtrer (histoire de masquer lignes à conserver et de laisser s'afficher les doublons à supprimer).

J'étais content car en le faisant à la main ça marche, mais par macro il supprime tout :/

J'ai joint un fichier exemple avec en jaune les données à toucher, et en vert le résultat attendu.

J'espère avoir été clair


À tôt bien

PS: j'aimerais le faire par macro

 

[CPk]

Re : Macro filtrer puis supprimer les doublons

Bonjour, la solution 1 vous n'allez pas aimer ! Donc prenez la deux...

Sub solution1()
Feuil1.Columns(1).RemoveDuplicates 1
End Sub

Sub solution2()
    With Feuil1
        For i = .Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
            If Application.WorksheetFunction.CountIf(.Columns(1), .Cells(i, 1)) > 1 Then
                If .Rows(i).Hidden = False Then
                    .Cells(i, 1).Delete shift:=xlUp
                    End If
                End If
            Next i
        End With
    End Sub

 

[LeRevenant]

Re : Macro filtrer puis supprimer les doublons

Wow nickel ça marche, merci beaucoup
je connaissais pas ça:
If Application.WorksheetFunction.CountIf(.Columns(1), .Cells(i, 1)) > 1 Then

 

[CPk]

Re : Macro filtrer puis supprimer les doublons

Euh...Si si vous connaissez...C'est nb.si() mais prononcé un peu à la façon des seuls à ne jamais faire comme les autres ! Tu sais ceux qui vivent de l'autre côté de la manche :/

 

[LeRevenant]

Re : Macro filtrer puis supprimer les doublons

oui je m'en doutais
ils sont bizarres ces roux! (ou ceux qui vivent de l'autre côté de la manche)

 

[CPk]

Re : Macro filtrer puis supprimer les doublons

Ca dépend des roux, il y à ceux qui ont des mensurations en 3D (1m95 sur 1 m sur 1m) eux...ils ont toujours raison même quand ils ont tort et il y les petits trolls à deux jambes qui eux...ben forcément c'est l'inverse.