Aide sur macro pour éliminer les doublons

Fermé
bizo0 Messages postés 1 Date d'inscription vendredi 3 juillet 2009 Statut Membre Dernière intervention 3 juillet 2009 - 3 juil. 2009 à 14:01
Bonjour, michel

vous m'avez aider hier sur une macro pour faire une recherche de doublons (je vous en remercie), je voudrais juste savoir comment la modifier pour qu'elle s'applique par exemple sur la colonne 2 au lieu de la colonne 1 ? merci d'avance

Ci joint la macro :

Sub epurer()

Dim triage As Collection
Dim nbre As Long, cptr As Long

'ActiveSheet.Unprotect
Application.ScreenUpdating = False


nbre = Application.CountA(Range("A:A"))
Set triage = New Collection

On Error Resume Next
cptr = 1
While cptr <= nbre
'le parametre Key devant être unique, un doublon provoquerait une erreur _
le gestionnaire étant activé, Tonton Vba ignore l'erreur et passe à la cellule suivante _
s'il n'y a pas pas d'erreur le numéro d'item de la collection triage est alors implémenté
triage.Add Cells(cptr, 1).Value, CStr(Cells(cptr, 1).Value)
cptr = cptr + 1
Wend
On Error GoTo 0

nbre = triage.Count

' Ecrit la zone épurée (ici dans des cellules mais peut-etre adapté à des listbox et combobox)
Range("A:A").ClearContents
cptr = 1
While cptr <= nbre
Cells(cptr, 1) = triage(cptr)
cptr = cptr + 1
Wend

'ActiveSheet.Protect

End Sub
A voir également: