XL 2019 Aide Concaténer avec une conditions

pehrs · 16 Septembre 2022

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 · 16 Septembre 2022

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

VB:

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 · 16 Septembre 2022

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 · 16 Septembre 2022

Re,
La même PJ commentée.

XL 2019 Aide Concaténer avec une conditions

pehrs

XLDnaute Nouveau

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

pehrs

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Pièces jointes

Discussions similaires