Rassembler plusieurs adresses mails

Bonjour à tous,

Pouvez-vous m'aider?

J'ai un grand nombre d'adresses mail et je voudrai les rassembler toutes séparées par une virgule pour pouvoir les écrire en une fois.

Exemple: colonne A: adresses, colonne B: virgules

je n'arrive pas à fusionner en une seule fois A1 avec B1, A2 avec B2, A3 avec B3 ect...

J'ai essayé la fonction concaténer mais ça ne marche que pour une ligne.

Salut Kahatif,

Tu as un bout de fichier à nous montrer avec ce que tu as à disposition et ce que tu désirerais en finale ?

A te relire.

Bonjour

Un code de Claude Dubois pour concatener toute la colonne A en D2

Le Code est dans le Module1

Fichier exemple joint

Cordialement

Salut Amadéus,

Je crois que tu as oublié de joindre le fichier exemple.

Bonne fin de journée.

Bonjour Yvouille

Merci, c'est réparé

cordialement

Bonjour Amadéus,

merci pour ta réponse mais où se trouve le code et le module1? Le fichier exemple qui tu as donné, c'est exactement ce que je voudrai faire en séparant les adresses par une virgule.

Bonjour

merci pour ta réponse mais où se trouve le code et le module1?

Tu ouvres le fichier que j'ai envoyé

Tu appuies sur Alt et sur F11, ceci ouvre une fenêtre qui est l'Editeur VBA

Tu cliques sur Module1 et le Code de la Macro s'affiche

Pour mettre ce Code sur ton fichier

Tu sélectionnes tout le Code et Copier

Tu ouvres ton fichier

Tu appuis sur les touches Alt et F11

dans l'Editeur VBA, tu cliques sur "Insertion" "Module"

Tu cliques sur le module (qui est automatiquement nommé Module1)

Et là, tu colles le Code précédemment copié.

Cordialement

Bonjour Amadéus,

J'ai fais exactement ce que tu m'a dit mais mais adresses ne sont toujours pas séparées par une virgule.

Bien cordialement.

Bonjour,

Une autre solution, à partir du fichier d'Amadéus, et qui évite les doublons :

Sub grouper()
Dim Cel As Range
Dim Adresses_Mail As Object
Set Adresses_Mail = CreateObject("Scripting.Dictionary")
For Each Cel In Range("A2:A" & [A65000].End(xlUp).Row)
    Adresses_Mail(Cel.Value) = Cel.Value
Next Cel
Range("D2").Value = Join(Adresses_Mail.Items, ",")
End Sub

Le fichier :

Tu colles le code dans ton fichier, comme te l'a indiqué Amadéus

Pour que cela fonctionne, il faut tout d'abord autoriser les macros

Sous 2007, tu cliques sur le bouton "Office", en haut, à gauche

Puis sur "Options Excel"

Tu cliques sur la rubrique "Centre de gestion de la confidentialité", puis sur le bouton :

"Paramètres du centre de gestion de la confidentialité"

Dans la rubrique "Paramètres des Macros", tu sélectionnes "Désactiver toutes les macros avec notification"

Tu quittes Excel, en enregistrant, et tu redémarres (important)

Tu ouvres de nouveau ton fichier, tu auras alors un message de notification "Avertissement de sécurité"

Tu cliques sur Options, et là tu valides les macros

Ça paraît long, mais ensuite, tu n'auras que cet avertissement de sécurité, les paramètres étant définis une bonne fois pour toutes...

Tu peux alors insérer un objet "Dessin", tu fais un clic droit dessus, "Affecter une macro", et tu choisis "Grouper"

Quand tu appuieras sur ce dessin, tes adresses mail vont se regrouper dans la cellule D2, séparées par une virgule...

Bon courage

Bon W-E