Macro filtrer puis supprimer les doublons

C

CPk

XLDnaute Impliqué

• 15 Avril 2016

• #2

Re : Macro filtrer puis supprimer les doublons

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

Code:

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

 

Vote positif 0 Vote négatif

LeRevenant

XLDnaute Occasionnel

• 15 Avril 2016

• #3

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

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 15 Avril 2016

• #4

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 :/

 

Vote positif 0 Vote négatif

LeRevenant

XLDnaute Occasionnel

• 15 Avril 2016

• #5

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)

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 16 Avril 2016

• #6

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.

 

Dernière modification par un modérateur: 16 Avril 2016

Vote positif 0 Vote négatif