XL 2010 Extraire un type de donnée par cellule

[saggigo]

Bonjour à tous,
J'espère que vous allez bien.
voilà, j'ai un tableau de deux colonnes(A,B), et dans la deuxième (B) colonne j'ai plusieurs doublons au format texte, j'aimerais extraire dans une cellule vide tous les noms qui sont dans la B, séparés par un ";"

Je vous remercie pour votre aide. faite moi signe si vous avez besoin de plus d'infos

 

[mapomme]

Re,

J'avais oublié qu'il pouvait figurer des valeurs d'erreur dans la plage source de la fonction.
C'est corrigé dans la v1a.

Option Explicit
Option Compare Text

Function Extrait(Plage As Range) As String
Dim c As Range, x As String
   x = ";"
   For Each c In Plage
      If Not IsError(c) Then If Len(c) > 0 Then If InStr(x, ";" & c & ";") = 0 Then x = x & c.Value & ";"
   Next
   If Right(x, 1) = ";" Then x = Left(x, Len(x) - 1)
   If Left(x, 1) = ";" Then x = Mid(x, 2)
   Extrait = x
End Function