thierry_44
XLDnaute Junior
bonjour
cette macro de copie de colonne supprime , les doublons , comment la modifier pour les conserver.
merci d'avance
'Copie de la colonne 1
Sheets("Liste").Range("A1").Copy Destination:=Sheets("Resultat").Range("A1")
For n1 = 2 To Range("A65536").End(xlUp).Row
On Error Resume Next
coll1.Add Range("A" & n1), CStr(Range("A" & n1))
On Error GoTo 0
Next n1
For n1 = 1 To coll1.Count
Sheets("Resultat").Range("A" & n1 + 1) = coll1(n1)
Next n1
cette macro de copie de colonne supprime , les doublons , comment la modifier pour les conserver.
merci d'avance
'Copie de la colonne 1
Sheets("Liste").Range("A1").Copy Destination:=Sheets("Resultat").Range("A1")
For n1 = 2 To Range("A65536").End(xlUp).Row
On Error Resume Next
coll1.Add Range("A" & n1), CStr(Range("A" & n1))
On Error GoTo 0
Next n1
For n1 = 1 To coll1.Count
Sheets("Resultat").Range("A" & n1 + 1) = coll1(n1)
Next n1