Assembler des adresses mail

Brigitte

XLDnaute Barbatruc

• 15 Septembre 2008

• #2

Re : Assembler des adresses mail

Bonjour,

Une piste, pas la plus pratique, mais ca marche plus facilement, me semble t'il qu'un copier / coller :

=A1&";"&B1&";"&C1&";"&D1 etc...

Après faudrait automatiser la chose, c'est à dire rajouter les points virgule et le &


Bon courage.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Septembre 2008

• #3

Re : Assembler des adresses mail

Bonjour à tous,

sinon une petite fonction en VBA :

Code:

Function FusionMail(Plage As Range) As String
    FusionMail = ""
    For i = 1 To Plage.Cells.Count
    FusionMail = FusionMail & Plage.Cells(i).Value & ", "
    Next i
    FusionMail = Left(FusionMail, Len(FusionMail) - 2)
End Function

 

Vote positif 0 Vote négatif

mariobross

XLDnaute Occasionnel

• 15 Septembre 2008

• #4

Re : Assembler des adresses mail

smint , brigitte.
tapes cette formule dans une cellule :

=Joincells(a1:a50;",")

@+

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 15 Septembre 2008

• #5

Re : Assembler des adresses mail

Bonjour,

Ce serait magique, mais chez moi JOINCELLS ne répond pas, cela me fait : #NOM?

Ce serait quoi l'équivalent en français, ca dépend peut être des versions d'excel ?

 

Dernière édition: 15 Septembre 2008

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 15 Septembre 2008

• #6

Re : Assembler des adresses mail

Bonjour à tous,

Notre ami a surement oublié de nous mettre le code de la fonction personnalisée.

Bises à T'ites Couettes
A+ à tous

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 15 Septembre 2008

• #7

Re : Assembler des adresses mail

Argh,

Me doutais que c'étais un truc "maison", mais c'est fort intéressant, je trouve.

Bises JC

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Septembre 2008

• #8

Re : Assembler des adresses mail

Bonjour Brigitte, JCGL, mariobros,

facile de modifier mon petit code pour que ça fasse le JoinCells de mariobros :

Code:

Function JoinCells(Plage As Range, Separateur as String) As String
    JoinCells= ""
    For i = 1 To Plage.Cells.Count
    JoinCells= JoinCells& Plage.Cells(i).Value & Separateur 
    Next i
    JoinCells= Left(JoinCells, Len(JoinCells) - len(Separateur))
End Function

 

Vote positif 0 Vote négatif

mariobross

XLDnaute Occasionnel

• 15 Septembre 2008

• #9

Re : Assembler des adresses mail

oups jcgl à raison !

je joint le fichier d'exemple avec le code de la fonction , désolé pour celui qui l'a pondu (car ce n'est pas moi) je ne peux pas le citer je ne sais plus qui c'est.

 

Pièces jointes

• joincell.xls

  26.5 KB · Affichages: 125

Vote positif 0 Vote négatif

mariobross

XLDnaute Occasionnel

• 15 Septembre 2008

• #10

Re : Assembler des adresses mail

merci tototiti , on avance.

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 15 Septembre 2008

• #11

Re : Assembler des adresses mail

Merci tout le monde.

Moi ca m'intéresse votre truc... Dis moi tototiti, faut nommer la plage ?

J'y arrive pô...

1. j'ai copié ta macro dans un module
2. j'ai tapé =JoinCells(plage;";")

après avoir défini la plage de A1 à D1 par exemple.

Et ca bugge... Ca me met une phrase de la macro en rouge et après ca bugge encore...

 

Dernière édition: 15 Septembre 2008

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Septembre 2008

• #12

Re : Assembler des adresses mail

tu as donné le nom plage à A1 : D1 ? ça devrait marcher
il y a un petit problème d'espace dans le code :

Code:

[COLOR=red]JoinCells = JoinCells & Plage.Cells(i).Value & Separateur[/COLOR]

 

Vote positif 0 Vote négatif

Brigitte

XLDnaute Barbatruc

• 15 Septembre 2008

• #13

Re : Assembler des adresses mail

Re,

Désolée, mais ca ne marche pas du tout pour moi.

Petite question, dans le classeur, après avoir nommé la plage, après avoir placé ta macro (corrigée), COMMENT fait on ? on tape =JoinCells(plage;";") ?

La macro met tjs une ligne en rouge :

Function JoinCells(Plage As Range, Separateur As String) As String
JoinCells = ""
For i = 1 To Plage.Cells.Count
JoinCells & Plage.Cells(i).Value & Separateur
Next i
JoinCells = Left(JoinCells, Len(JoinCells) - Len(Separateur))
End Function

Cliquez pour agrandir...

Je suis vraiment pas douée, faut me décortiquer tout... je suis nulle en macro.

Merci d'avance.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 15 Septembre 2008

• #14

Re : Assembler des adresses mail

vérifie qu'il y a bien des espaces comme dans la ligne rouge que j'ai posté plus haut, s'ils manquent rajoute-les (ou remplace la ligne qui plante par celle en rouge).
pas besoin de nommer ta plage "Plage", tu peux trés bien sélectionner de A1 à D1

sinon, =JoinCells(plage;";") devrait fonctionner

un exemple :

 

Pièces jointes

• Classeur1.xls

  21.5 KB · Affichages: 72
• Classeur1.xls

  21.5 KB · Affichages: 75
• Classeur1.xls

  21.5 KB · Affichages: 78

Vote positif 0 Vote négatif

G

Guest

Guest

• 15 Septembre 2008

• #15

Re : Assembler des adresses mail

Brigitte😀,

Regarde le dernier post de TotoTiti, et remplace ta ligne en rouge par celle qui est dans son post.

A++++

 

Vote positif 0 Vote négatif