Macro pour concatener une selection de courriels

MJ13

XLDnaute Barbatruc

• 29 Septembre 2012

• #2

Re : Macro pour concatener une selection de courriels

Bonjour Citrus

Tu peux essayer un code du genre:

Code:

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

Msgbox AdrGlobale

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

 

Vote positif 0 Vote négatif

C

citrus

Guest

• 29 Septembre 2012

• #3

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.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 29 Septembre 2012

• #4

Re : Macro pour concatener une selection de courriels

Bonjour à tous,

et pour éviter la cellule vide :

Code:

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...

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 29 Septembre 2012

• #5

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.

 

Vote positif 0 Vote négatif

C

citrus

Guest

• 29 Septembre 2012

• #6

Re : Macro pour concatener une selection de courriels

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

 

Vote positif 0 Vote négatif