XL 2019 Aide Concaténer avec une conditions

[pehrs]

Bonjour à tous, je viens encore une fois demander de l'aide aux sages qui peuplent ce forum qui m'a déjà aidé à de nombreuses reprises.
Pour vous exposer mon problème J'ai une liste de sociétés (ordonnées en colonnes) et d'actionnaires (sur une lignes) qui forment un tableau. Ensuite, dans le tableau ainsi formé j'ai des pourcentages: il y a un pourcentage à l'intersection de la ligne d'une société et de la colonne d'un actionnaires lorsque cet actionnaire à des parts dans la société.
j'aimerais pouvoir concaténer les noms des actionnaires lorsque ceux ci sont actionnaires d'une société sur la même ligne que la dite société mais je ne sais pas comment faire.
Cela doit être possible avec une VBA mais je ne sais pas vraiment les utiliser.
Je vous joins un fichier exemple tout sera plus clair.
Merci d'avance

 

[sylvanu]

Bonjour Pehrs,
Un essai en PJ avec la fonction perso :

Function Ajouter(Plage)
    Dim T, i%, L%, C%
    On Error GoTo Fin
    T = Plage
    L = UBound(T, 1): C = UBound(T, 2)
    For i = 1 To C
        If T(L, i) <> "" Then Ajouter = Ajouter & T(1, i) & " , "
    Next i
    Ajouter = Left(Ajouter, Len(Ajouter) - 3)
    Exit Function
Fin:
    Ajouter = ""
End Function

 

[pehrs]

Merci beaucoup, aujourd'hui tu es vraiment mon sauveur!
Comme sur l'autre post, est-ce-que tu pourrais rapidement m'expliquer quelles fonctions tu as utilisé?

 

[sylvanu]

Re,
La même PJ commentée.