tinet
XLDnaute Impliqué
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+
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+
PHP:
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
Dernière édition: