Problème VBA Concatener [résolu]

pierrot63270

XLDnaute Nouveau
Bonjour le Forum,

j'ai quelques soucis sur le paramétrage d'une macro, n'ayant pas trouvé de solution via les fonctions Excel.

Sur le fichier joint, je voudrais que dans la colonne "Pouvoirs reçus de", je retrouve la liste des gens qui ont donné à un pouvoir à une personne donnée. Dans l'exemple, sur les 3 premières lignes, je voudrais que Monsieur bou1 Yo1 voit apparaître en N3 "bou2 Yo2 bou3 Yo3".
Le problème avec ma macro, je vois apparaître la liste entière des "bou you", dans chaque cellule de la colonne N, alors que je ne veux apparaître que les bou you qui ont donné un pouvoir à un bou you particulier.

J'espère que ma demande aura été suffisamment claire.

Merci d'avance pour votre aide.

Pierrot 63270
 

Pièces jointes

  • Liste Pouvoirs.xlsm
    30.4 KB · Affichages: 25
Dernière édition:

Modeste

XLDnaute Barbatruc
Re : Problème VBA Concatener

Bonjour Pierrot 63270,

J'espère que ma demande aura été suffisamment claire
... Pas sûr, non :confused:

Les formules de ta colonne K contiennent des références à des plages nommées (qui ne correspondent plus à rien, dans ton fichier exemple). En K4 et K5, les formules ont été "écrasées" par des valeurs saisies "en dur".
D'autre part, le code ne permet pas vraiment de comprendre ce que tu voulais.

Un essai donc (avec ce qui m'a paru le plus plausible):
Dans ton module1, colle le code suivant:
VB:
Function deleg(plage As Range, qui As String)
ch = ""
For Each c In plage
    If c = qui Then ch = ch & c.Offset(0, -8) & " "
Next c
deleg = RTrim(ch)
End Function
Il s'agit d'une fonction personnalisée: en N3, écris =deleg([à Qui];[@ConcatPv]) et recopie la formule jusqu'en bas.

... Tu nous diras ensuite si c'est ce que tu voulais obtenir ... ou non!?
 

pierrot63270

XLDnaute Nouveau
Re : Problème VBA Concatener [résolu]

Bonjour Modeste, Bonjour MichD
un grand merci à vous 2 pour vos contributions.
@Modeste : effectivement, la plupart des données du fichier provient d'une requête, que j'ai anonymisée d'où leur "non-correspondance"
Les 2 "actions" fonctionnent donc très bien et arrivent au résultat escompté.
Je vais choisir l'option de Modeste pour ce fichier, car la mise à jour est automatique !
Merci encore et bonne fin de journée.

Pierrot63270
 
Dernière édition: