Bonjour à tous,
Je vous explique mon but rapidement : Je voudrais supprimer les doublons dans une plage. Mais, je veux supprimer toute la ligne si les valeurs en col sont en doublons.
J'ai réussi à obtenir le code suivant qui fonctionne bien, mais qui ne supprime pas toute la ligne (uniquement les cels en A).
Dim Unique As Object, Ce As Range
Set Unique = CreateObject("Scripting.Dictionary")
For Each Cel In Range("a2:a" & [a65000].End(xlUp).Row)
If Not Unique.Exists(Cel.Value) Then Unique.Add Cel.Value, Cel.Value
Next Cel
Range("a2:a" & [a65000].End(xlUp).Row).Delete Shift:=xlUp
Range("a2:a" & Unique.Count + 1) = Application.Transpose(Unique.items)
J'ai essayé de le trifouiller un peu pour obtenir ce que je veux mais la dernière ligne me gène chaque fois avec le transpose.
Si quelqu'un sait comment résoudre mon pb à partir de ce code ou même avec un autre code, vous êtes les bienvenus.
Ps : J'ai déjà utilisé l'enregistreur etc
Merci beaucoup à tous !