Comment conserver le doublon

[thierry_44]

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

 

[Pierrot93]

Re : Comment conserver le doublon

Bonjour Thierry

A priori, je dirais tu ne la lances pas...Mais que veux tu faire exactement...

bon dimanche

 

[Bebere]

Re : Comment conserver le doublon

bonjour Thierry,Pierrot
un essai
Sub x()
Dim N1 As Integer, DerL As Integer, coll1 As New Collection
Application.ScreenUpdating = False
DerL = Sheets("liste").Range("A65536").End(xlUp).Row
Sheets("Resultat").Range("A1:A" & DerL).Value = _
Sheets("Liste").Range("A1:A" & DerL).Value
Sheets("Resultat").Activate
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("B" & N1 + 1) = coll1(N1)
Next N1
Application.ScreenUpdating = True
End Sub

à bientôt