Macro pour concatener une selection de courriels

[citrus]

Bonjour,

Je viens vous demander un peu d'aide pour une macro.
Je souhaiterais concatener des courriels dans une seule cellule avec un séparateur.

ex :

xxxxx@free.fr
xxxxx@orange.fr
(cellule vide)
xxxxx@cegetel.net


Je sélectionne toute la plage avec la souris et je lance la macro qui concatene tout ça dans la cellule F6 avec une virgule comme séparateur, ce qui donne en F6 :

xxxxx@free.fr,xxxxx@orange.fr,xxxxx@cegetel.net

Merci pour votre aide 🙂

 

[MJ13]

Re : Macro pour concatener une selection de courriels

Bonjour Citrus

Tu peux essayer un code du genre:

for each cell in selection
AdrGloble= Adr & cell & ","
next

Msgbox AdrGlobale

Il faudra ensuite supprimer la dernière virgule avec mid.

 

[citrus]

Re : Macro pour concatener une selection de courriels

Merci pour ta réponse MJ13

Cela fonctionne mais j'ai oublié de préciser que les courriels ne sont pas saisis directement dans les cellules. Ils apparaissent grâce à une fonction SI. C'est sans doute pour cela que la boite de dialogue reste vide.

 

[eriiic]

Re : Macro pour concatener une selection de courriels

Bonjour à tous,

et pour éviter la cellule vide :

Sub concatMail()
    Dim c As Range, s As String
    For Each c In Selection
        If c <> "" Then s = s & "," & c
    Next c
    If s <> "" Then [F6] = Mid(s, 2)
End Sub

Eric

Edit: Que le texte soit issu d'une formule ne change rien.
Et nous ne savons pas de quelle boite de dialogue tu parles...

 

[MJ13]

Re : Macro pour concatener une selection de courriels

Re , Bonjour Eric

En général, on peut choisir cell.value ou cell.text.

Sinon pour choisir les cellule non vide, un petit coup de F5 et click sur Cellules puis choisir Cellules vides avec l'enregistreur de macros devrait t'aider.

 

[citrus]

Re : Macro pour concatener une selection de courriels

Un grand merci à tous les 2, cela fonctionne parfaitement. 😀