Autres afficher sans doublon (formule)

[chaelie2015]

Bonsoir FORUM
J'ai un tableau ( jaune) je souhaite afficher(automatiquement par formule) par ligne dans la tableau (vert) les valeurs sans doublon.
ci rattaché un fichier exemple.
Merci

 

[gbinforme]

Bonjour,

Avec une petite fonction personnalisée dans un module standard cela est possible avec un suffixe .xlsm

Option Explicit
' pl1 plage à reporter sans double
' pl2 plage déjà reportée
Public Function sans_double(pl1 As Range, pl2 As Range) As String
Dim idx As Long
Dim nbr As Long
Dim adr As String
    Select Case TypeName(Application.Caller)
        Case "Range": adr = Application.Caller.Address
    End Select
    If pl2.Address = adr Then
        sans_double = pl1(1)
    Else
        For idx = 1 To pl1.Count
            nbr = Application.CountIf(pl2, pl1(idx))
            If nbr = 0 Then sans_double = pl1(idx): Exit Function
        Next idx
    End If
End Function