bizo0
Messages postés1Date d'inscriptionvendredi 3 juillet 2009StatutMembreDerniè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
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