Microsoft 365 Concaténer colonnes entières avec virgule

polog57

XLDnaute Nouveau
Bonjour,

J'aimerais concaténer des colonnes d'emails afin de pouvoir faire rapidement des envois groupés.
J'ai réussi à concaténer la colonne B (voir pièce jointe) en D7 en faisant en D2=B2; puis B2=D2&B2.

Mon problème est que je n'arrive pas à introduire une virgule entre chaque adresse. J'ai plusieurs listes à traiter et cela devient très chronophage de les insérer manuellement.

J'aimerais aussi savoir s'il est possible de concaténer à la fois la colonne B+colonne C en insérant une virgule entre chaque adresse.

Merci pour votre aide
Cordialement
Paul
 

Pièces jointes

  • Fichier test conc mails.xlsx
    17.4 KB · Affichages: 10

cp4

XLDnaute Barbatruc
Re

[digression d'avant apéritif - oui je sais il est trop tôt]
C'était surtout pour attirer le "chaland" parce que je sentais un peu seul depuis le message#5 ;)
Déjà que je suis confiné en ma demeure.
Si en plus XLD me confine dans le spectre de l'invisible
Je vais devoir sortir mon attestation dérogatoire pour aller quérir dans la plus proche officine un anxiolytique allopathique (tout plein de cochoncetés ;)
[/digression d'avant apéritif - oui je sais il est trop tôt]
Depuis le post#5, c'est polog57 qui t'as lâché, c'est lui le demandeur. Il s'est peut-être confiné, lui et sa connexion internet.:):)
 

cp4

XLDnaute Barbatruc
Re


Si, je parlais de ce genre de zappage ;)

Point vue de salutations à mon endroit de ta part ;)
(Je sais que le Covid19 est contagieux, mais un petit Bonjour sur XLD n'est pas un vecteur de transmission ;))
Si c'est pour ça, j'en suis désolé. Je n'avais rien à redire à tes excellentes suggestions comme à l'accoutumé d'ailleurs.
Toutes mes excuses. Mes très sincères salutations.
Amicalement
 

Staple1600

XLDnaute Barbatruc
Re
•>cp4
[aparté - toujours pas l'heure de l'apéro]
Comme je l'ai dit ailleurs, (en référence au fil de calvus dans le salon), j'essaie de me mettre en mode (emulation/synergie/chambrage etc comme jadis sur XLD entre répondeurs)
Mais c'est pas gagné*, lol ;)
[/aparté - toujours pas l'heure de l'apéro]

* : Si on ne se voit pas tous passer dans les fils.

PS: Tu as été voir le lien que j'ai mis ?
Et fait le test avec calc.exe ?
 

cp4

XLDnaute Barbatruc
Re
•>cp4
[aparté - toujours pas l'heure de l'apéro]
Comme je l'ai dit ailleurs, (en référence au fil de calvus dans le salon), j'essaie de me mettre en mode (emulation/synergie/chambrage etc comme jadis sur XLD entre répondeurs)
Mais c'est pas gagné*, lol ;)
[/aparté - toujours pas l'heure de l'apéro]

* : Si on ne se voit pas tous passer dans les fils.

PS: Tu as été voir le lien que j'ai mis ?
Et fait le test avec calc.exe ?
Oui merci, j'étais entrain de lire.
Pour l'apéro, j'y ai pas encore droit (trop jeune ;) ).
 

polog57

XLDnaute Nouveau
et donc ( mais pourquoi n'as-tu pas le réflexe d'essayer ?) -->>
= A1 & "," & A2 & "," & B1 & "," & B2
A moins, bien sûr, que tu aies voulu dire (mais ne l'as pas dit) quelque chose de plus "générique"

En fait, je veux que tout les résultats se retrouvent dans une seule cellule (par exemple H2) , A1+B2 jusqu'à F1+F2, toutes les adresses réunies pour en faire une liste d'envoi.
Désolé, mais mon niveau d'Excel ne me permet pas une précision de langage très avancée.
Cordialement
 

Staple1600

XLDnaute Barbatruc
Re

Au cas où polog57 aurait zappé mes précédents passages (et code VBA) dans son fil, voici une version revisitée d'un des codes précédents. ;)
(ici on concatène plusieurs colonnes)
VB:
Function MultiConcatC(vArr As Variant, Optional Séparateur As String = ";") As String
Dim j As Variant
If IsArray(vArr) Or TypeName(vArr) = "Range" Then
  For Each j In vArr
    If MultiConcatC = "" Then
    MultiConcatC = j
    ElseIf j <> "" Then
    MultiConcatC = MultiConcatC & Séparateur & j
    End If
    Next j
  Else
MultiConcatC = CStr(vArr)
End If
End Function
Pour le mode d'emploi, relire (ou lire) mes précédents messages dans le fil ;)
(Notamment le#5 et le #6)
 

Discussions similaires

Réponses
4
Affichages
256

Statistiques des forums

Discussions
311 709
Messages
2 081 779
Membres
101 816
dernier inscrit
Jfrcs