Concatener des valeurs uniques

Bonjour à tous,

Je souhaietrais concatener les valeurs uniques contenues dans la colonne (B5:B) pour les mettres dans la celulle F2 de la feuille "DP DS Cde".

Je souhaiterais ajouter cette fonctionnalité à la macro Filtrer_DP "Bouton : FILTRER DP"

Sub Filtrer_DP()
    Sheets("DP DS Cde").Select
    Range("D2").Font.Color = RGB(0, 255, 0)
    If Application.WorksheetFunction.CountIf(Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row), Range("D2")) = 0 Then
    MsgBox "N° DP introuvable : " & Range("D2")
    Exit Sub
    End If
    Selection.AutoFilter Field:=1, Criteria1:=Range("D2")
    derlig = Sheets("DP DS Cde").Range("A65536").End(xlUp).Row
    Range("A5").Select
    Application.CutCopyMode = False
    Worksheets("DP DS Cde").Protect UserInterfaceOnly:=True
End Sub

J'ai trouvé différents sujets mais ceux-ci ne permettaient pas de concatener les valeurs uniques d'1 colonne pour les mettres dans une seule et même cellule.

Auriez-vous une idée ?

Merci

Fabien

Bonjour

Si tu commençais par préciser ta version Excel ?

Version 2016

Slt Fabien,

avec une fonction personalisée

Function ConcatUniq(xRg As Range, xChar As String) As String
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

Et puis formule à insérer dans la céllule F2

=ConcatUniq(B5:B3230;",")

Bonjour m3ellem1,

Faut-il insérer la fonction et la formule ?

Je viens d'insérer la formule "=ConcatUniq(B5:B3230;",")" en cellule F2 mais l'erreur #NOM? s'affiche.

Aurais tu une idée stp ?

Merci

Fabien