Supprimer les Uniques et garder les doublons

Bonjour,

J' ai besoin d'une macro qui me supprime les uniques de ma colone G et ne garder que les doublons. Merci.

Bonsoir CHRISTOPHE059, le forum,

Un exemple....

Cordialement,

Merci, mais comment faire pour l' appliquer à mon dossier.

Bonjour CHRISTOPHE059,

Je ne suis pas parvenu à adapter mon code à ton fichier, , l' "ITEM_NAME" en colonne G me pose problème....que la colonne soit au format nombre où texte, excel ne trouve pas de valeur unique, et je ne comprends pas pourquoi.

La seule parade que j'ai trouvée, est de rajouter un caractère à la fin, supprimer alors les valeurs uniques (qui sont maintenant reconnues) puis supprimer le dernier caractère,

CTRL + e pour exécuter la macro......

Sub test()
 Dim i As Long, dl As Long
 Dim c As Range, plage As Range, nc, cel As Range
  dl = Range("G" & Rows.Count).End(xlUp).Row         'dernière ligne utilisée de la colonne G

   Application.ScreenUpdating = False

   Set plage = Range("G3:G" & dl)        'définit la plage où il faut agir

    For Each c In plage                  'pour chaque cellule dela plage
     c.Value = c.Value & "x"             'ajoute un caractère à la fin (x)
    Next c

    For i = dl To 3 Step -1
     If Application.WorksheetFunction.CountIf(plage, Range("G" & i)) = 1 Then Rows(i).EntireRow.Delete
    Next i

    For Each cel In Range("G3:G" & dl)   'on reprend la nouvelle plage de G3 à dernière cellule en colonne G
    On Error Resume Next
        cel.Value = Trim(cel.Value) 'supprime espaces
        nc = Len(cel)               'compte les caractères
        cel.Value = Left(cel, nc - 1)
    Next cel
   Application.ScreenUpdating = True
End Sub

Si un pro passe dans le coin, je serai intéressé par la solution,

Cordialement,