Concaténer un nombre certain nombre d'email

bonjour

j'ai une liste d'emails que je souhaiterai concaténer en une chaîne de caractères concentrée dans une seule cellule.

Il faut que chaque email soit séparé par une virgule.

J'ai commencé un programme qui mettait en avant un tableau virtuel (fonction UBound) à savoir tout les emails sous forme de valeurs mais c'est surtout sur la séparation ou je bloque.

Pouvez vous m'aider ?

Bonjour

Meilleurs vœux

Pas de macro dans ton fichier

gladius a écrit :

souhaiterai concaténer en une chaîne de caractères concentrée dans une seule cellule.

gladius a écrit :

mais c'est surtout sur la séparation ou je bloque.

Quelque chose m'echappe

Tu veux les concaténer pour ensuite les séparer !!!!!

non je veux concaténer mais la ou je bloque dans mon programme c'est de séparer les mails par la virgule.

Le faire d'une manière standard pour deux cellules c'est simple et inutile de passer sous vba

=CONCATENER(F1;", ";F2)

Mais faire ca pour tout une colonne c'est une autre histoire (Méthode FOR NEXT ?)

Et je donne le résultat final que je souhaite obtenir sur le fichier posté

"jeffrey@toto.fr, carlito@hotmail.fr, vincent@yahoo.fr, marty@free.fr"

Ici les mails sont séparés par une virgule mais je veux tout regrouper dans une seule cellule pour éviter de tout réécrire mail par mail.

Meilleurs voeux

Bonjour

A essayer la macro suivante

Sub regroupe()
 Range("I1") = Join(Application.Transpose(Range("F1:F" & Range("F" & Rows.Count).End(xlUp).Row)), ",")
 End Sub

Je n'ai pas eu l'occasion de répondre et de te remercier.

bonne continuation