doublon

[tinet]

Bonjour le forum,

j'ai trouvé cette fonction en copie coller et supprime les doublons.

j'aurais besoin d'aide pour modifier la formule qui copie sur une ligne.
pour moi la copie de destination serait F2 à la suite ( colonne)

merci de votre aide.

a+

sub Doublons()

Dim Collec As New Collection
Dim cell As Range, Itm As Long

With Sheets("Feuil1")

  For Each cell In .Range("A2:a")
    On Error Resume Next
    Collec.Add cell, CStr(cell)
    On Error GoTo 0
  Next
  
  For Itm = 1 To Collec.Count
      .Cells(4, Itm) = Collec(Itm)
  Next
  
End With

End Sub

 

[Paritec]

Re : doublon

bonsoir Tinet
voilà
a+
papou🙂

sub Doublons() 
Dim Collec As New Collection 
Dim cell As Range, Itm As Long 
With Sheets("Feuil1") 
  For Each cell In .Range("A2:a") 
    On Error Resume Next 
    Collec.Add cell, CStr(cell) 
    On Error GoTo 0 
  Next    
  For Itm = 1 To Collec.Count 
      .Cells(itm+1, 6) = Collec(Itm) 
  Next    
End With 
End Sub

 

[ROGER2327]

Re : doublon

Bonsoir à tous

Essayez ceci :

Sub Doublons()
Dim Collec As New Collection
Dim cell As Range, Itm As Long, Dat()
  With Sheets("Feuil1").Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
  For Each cell In .Cells
    On Error Resume Next
    Collec.Add cell, CStr(cell)
    On Error GoTo 0
  Next
  End With
  ReDim Dat(1 To Collec.Count, 1 To 1)
  For Itm = 1 To Collec.Count
    Dat(Itm, 1) = Collec(Itm)
  Next
  Range("F2").Resize(Collec.Count, 1).Value = Dat
End Sub

​

ROGER2327
#5227

Vendredi 20 Palotin 138 (Saint Ti Belot, séide, SQ)
20 Floréal An CCXIX
2011-W19-1T21:16:59Z

 

[tinet]

Re : doublon

Bonsoir paritec roger2327,

Merci pour votre aide.

a+