Discussion :

[CmzxNene]

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

[Pierre Fauconnier]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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





^* Solution 365

[Raccourcix]

Bonjour

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

Une mesure DAX:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

et dans une cellule une formule CUBE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Stéphane

[CmzxNene]

Bonjour Messieurs,

et merci pour vos solutions
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