XL 2010 Concatener des adresses mail

[kinel]

Bonjour à tous
je voudrais concatener des adresses mail en les séparant d'un ";" afin de les coller dans un logiciel de messagerie
j'ai bien essayer la formule=CONCATPLAGE(Feuil1!H2:H19&";") mais celle ci ne semble pas fonctionner sous 2010
merci de votre aide

Kinel

 

[JHA]

Bonjour à tous,

Regarde ce poste.

https://www.excel-downloads.com/thr...de-plusieurs-cellules.20030236/#post-20224469

JHA

 

[zebanx]

Bonjour Kinel, Jha, le forum

Une fonction qui me parait un peu plus simple à utiliser.

Function Concat(plage As Range) As String
Application.Volatile
For Each ele In plage
    If ele <> "" Then
        Concat = Concat & "," & ele
    End If
Next ele
Concat = Right(Concat, Len(Concat) - 1)
End Function

@+
zebanx

 

[kinel]

Merci pour ces solutions
j'ai opté pour la proposition de zebanx plus simple pour mon petit niveau

bonne soirée à tous