DOUBLONS DANS UNE SEULE COLONNE

Bonjour

Voici une approche qui supprime les lignes entières pour les doublons dans A

Sub SuppressionDoublons()
Dim Plage As Range
Dim Cellule As Range
Dim i As Long
Set Plage = Range("a1:a14")
For i = Plage.Rows.Count To 1 Step -1
Set Cellule = Plage.Cells(i, 1)
If Application.WorksheetFunction.CountIf(Plage, Cellule) > 1 Then _
Cellule.EntireRow.Delete
Next i
End Sub

Une autre approche qui ne supprime que les cellules de A
Sub SuppressionDoublons()
Dim Plage As Range
Dim Cellule As Range
Dim i As Long
Set Plage = Range("a1:a14")
For i = Plage.Rows.Count To 1 Step -1
Set Cellule = Plage.Cells(i, 1)
If Application.WorksheetFunction.CountIf(Plage, Cellule) > 1 Then _
Cellule.Delete shift:=xlUp
Next i
End Sub


--
Cela convient-il?
----
Pierre Fauconnier
"Si j'étais Dieu, je démissionnerais pour que les gens arrêtent de se battre
en mon nom." (Le Chat...)
(remplacer NOSPAM par pfi.be pour me répondre. Merci)


---

val wrote:

Bonjour,

Je m'arrache les cheveux !!!!
Dans une seule colonne (A), j'ai des numéros de dossiers
en doublons, triplons voire plus.
Comment les supprimer avec une macro de façon que la
présence de chaque numéro de dossier dans la colonne A
soit unique ???
Merci pour votre aide éventuelle et bonne journée !

avec la fonction VALEUR.UNIQUE (disponible avec la macro complémentaire
morefun, disponible ici www.longre.free.fr)