XL 2019 Aide Concaténer avec une conditions

pehrs

XLDnaute Nouveau
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
 

Pièces jointes

  • Exemple pehrs VBA.xlsm
    12.6 KB · Affichages: 4

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • Exemple pehrs VBA.xlsm
    16.4 KB · Affichages: 2

Discussions similaires

Statistiques des forums

Discussions
303 640
Messages
2 012 836
Membres
219 429
dernier inscrit
Remy.d