OVH Cloud OVH Cloud

Concatenation d'une plage

1 réponse
Avatar
nuages
Bonjour,

Est-il possible de concatener le texte de toute une plage de cellules
?
Quelquechose comme CONCATENER(A1:A100) ?

Plus précidément, je m'occupe d'une association et j'ai un fichier
Excel de ses membres, du genre :
NOM EMAIL
Pierre pierre.toto@wanadoo.fr
Paul
Jeanne
Jules jules@free.fr
Annie annie@boulot.com
Francois
Et je voudrais me contruire une mailing-list => trouver une formule
qui me donne
pierre.toto@wanadoo.fr, jules@free.fr, annie@boulot.com

Merci pour votre aide
Alain

1 réponse

Avatar
Philippe
Un p'tit truc tout simple comme ça te dépannerait ?

Sub Test()
Dim Plage As Range, Cell As Range

Set Plage = Range("B2:B100")
Range("C1").ClearContents
For Each Cell In Plage
If Not IsEmpty(Cell) Then
Range("C1").Value = Range("C1").Value + Cell.Value + ", "
End If
Next Cell
End Sub



"Alain" a écrit dans le message de
news:
Bonjour,

Est-il possible de concatener le texte de toute une plage de cellules
?
Quelquechose comme CONCATENER(A1:A100) ?

Plus précidément, je m'occupe d'une association et j'ai un fichier
Excel de ses membres, du genre :
NOM EMAIL
Pierre
Paul
Jeanne
Jules
Annie
Francois
Et je voudrais me contruire une mailing-list => trouver une formule
qui me donne
, ,

Merci pour votre aide
Alain