Microsoft 365 Supprimer les doublons en conservant les valeurs vides

[ivan27]

Bonsoir à tous,
En pièce jointe un classeur avec une liste sur les colonnes ABC.
Je souhaite supprimer les lignes (sur place) avec des valeurs en double sur la colonne C.
Lors de cette suppression, je veux conserver toutes les lignes qui n'ont pas de valeur dans la colonne C.
Exemple attendu sur EFG.
Merci d'avance pour votre aide.
Bien cordialement,
Ivan

 

[mapomme]

Bonsoir @ivan27 🙂,

Ce code dans module1 devrait le faire (cliquer sur le bouton Hop!) :

Sub SupprDoublons()
Dim der&
   Application.ScreenUpdating = False
   With Sheets("Feuil1")
      If .FilterMode Then .ShowAllData
      Range("a:c").Copy Range("e:g")
      der = .Cells(.Rows.Count, "a").End(xlUp).Row
      On Error Resume Next
      Range("g1").Resize(der).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=""[ligne]""&ROW()"
      Range("g1").Resize(der) = Range("g1").Resize(der).Value
      Range("e1:g1").Resize(der).RemoveDuplicates Columns:=3, Header:=xlYes
      Range("e1:g1").Resize(der).Replace what:="[ligne]*", replacement:=""
   End With
End Sub

 

[ivan27]

Re bonsoir le forum, mapomme,
Merci beaucoup, c'est parfait.
Ivan