Concatener dans 1 seule cellule en fonction d'une condition

Bonjour,

Je sèche avec les boucles en VBA

Je cherche a concatener dans une seule cellule toutes les adresses mails d'une colonne si dans une autre colonne une condition est remplie
Exemple:
Si dans la colonne Sélection il y a un "x" alors je concatène le mail en c1

A	B	C
Sélection	Mail	a@a.com;b@b.com;d@d.com
x	a@a.com
x	b@b.com
	c@c.com
x	d@d.com

Merci de votre aide
Cdt

Salut.

Dommage que tu n'as pas Excel365, JOINDRE.TEXTE aurait été la solution sans VBA^(*), mon billet de blog du 03/02/2020 en parlait justement ;)

Sans VBA, tu pourrais passer par POWER QUERY en suivant les explications que je donne dans ce billet tout frais que ta question m'a donné envie de rédiger ;).


Je te propose ici la fonction perso suivante, basée bien entendu sur un tableau structuré, même si elle fonctionne sur des plages classiques:

Code:

---

1 2 3 4 5 6 7 8

Function EmailsSelectionnes(Emails As Range, Choix As Range) Dim i As Long   For i = 1 To Choix.Rows.Count If UCase(Choix(i).Value) = "X" Then EmailsSelectionnes = EmailsSelectionnes & Emails(i).Value & ";" Next If EmailsSelectionnes <> "" Then EmailsSelectionnes = Left(EmailsSelectionnes, Len(EmailsSelectionnes) - 1) End Function

---

Tu l'utilises dans une formule Excel comme une fonction native

Pièce jointe 605511



^* Solution 365

Pièce jointe 605513

Bonjour

Une autre possibilité en passant par le modèle de données Power Pivot

Une mesure DAX:

Code:

---

Liste_Mail:=CONCATENATEX(FILTER(Tableau1;Tableau1[Sélection]="x");Tableau1[Mail];";")

---

et dans une cellule une formule CUBE

Code:

---

=VALEURCUBE("ThisWorkbookDataModel";"[Measures].[Liste_Mail]")

---

Pièce jointe 605532

Stéphane

Bonjour Messieurs,

et merci pour vos solutions:ccool:
J'ai utilisé la fonction de Pierre sur un tableau classique et le résultat est bien là : merci !

Je n'ai jamais utilisé Power Pivot et je vais approfondir cette solution : merci RACCOURCIX

Bonne journée
Cdt