suppression de doublons

[kabale53]

Bonjour

Sur une ligne j'ai les valeurs : 1-4-4-1 (une valeur par cellules);je souhaite recopier sur la meme ligne ces valeurs sans doublons c-a-d :1-4

Merci

 

[thebenoit59]

Re : suppression de doublons

Un exemple :

Sub Doublon()
Dim i As Variant
Dim j As Variant
Dim col As Long
Dim lig As Long
Dim d As Object

lig = Cells.Find("*", , , , xlByRows, xlPrevious).Row
    For i = lig To 1 Step -1
        col = Cells(i, 3000).End(xlToLeft).Column
        Set d = CreateObject("scripting.dictionary")
            For Each j In Range(Cells(i, 1), Cells(i, col))
                If j.Value <> "" Then d(j.Value) = ""
            Next j
        Rows(i).ClearContents
        Cells(i, 1).Resize(, d.Count) = d.keys
    Next i
End Sub

 

[kabale53]

Re : suppression de doublons

Merci thebenoit59 pour ton aide mais j'aurais préféré une solution en formule(si possible).