adresses email dans une colonne

[Godillot]

Bonsoir,

Je vais vous exposer le problème de ce jour :S j'ai dans une colonne des adresses e.mail, j'aimerai obtenir la liste de ces emails séparés par une virgule pour pouvoir envoyer un message à tous ces emails

:huh: pas tres français tout ça désolee et merci d'avance

 

[john]

Salut,

Quand tu dis que tu as des adrs mail dans une colonne, ça veux bien dire que ces adrs se trouvent dans la même cellule ou dans des cellules différentes???

Et pour pouvoir envoyer en une fois un mail à toutes ces adrs mail, elles doivent êtres séparées par un point virgule si je ne me trompe pas !!!!

Peux-tu m'éclairer sur mes questions???

Merci.

John

 

[godillot]

oups

une adresse dans chaque cellule et il me faut bien un point virgule désolée :sick:

merci

 

[john]

re,

Voici le code pour parcourir tes cellules et de les ajouter avec un point virgule entre chaque adresse.

Sub lit_adrs()
Range('A1').Select
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(0, 0).Resize(tbl.Rows.Count, tbl.Columns.Count).Select
col = tbl.Columns.Count
ligne = Range('A1').CurrentRegion.Count / col
adresse_mail = ''
For Each adrs In tbl
ligne_encour = adrs.Row
If ligne_encour < ligne Then
adresse_mail = adresse_mail & adrs & ';'
Else
adresse_mail = adresse_mail & adrs
End If
Next adrs
End Sub

Bonne soirée.

John

 

[godillot]

re,

j'ai dû rater un truc, lorsque j'exécute la macro, en fait elle selectionne la totalité des cellules où se trouvent les e mails, mais pas plus.

désolée

 

[john]

re,

envoi moi ton fichier et je ferai en sorte que ça marche, car dans mon exemple ça marche sans problème.

John

 

[godillot]

re

j'ai refait un fichier (l original est plus important et comporte plus de colonnes)

Merci pour l'aide [file name=emailexcel.zip size=5281]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/emailexcel.zip[/file]

 

[_Thierry]

Bonsoir 'Godillot' (arf), Bonsoir John, le Forum

Bon John, tu m'as dit publier pas mal de codes à travers la Belgique, alors il te faut maintenant un peu apprendre à te forcer à déclarer tes variables... C'est important en VBA.

Voici textuellement ton code un peu corrigé pour qu'il fonctionne pour 'Godillo' tout en étant un poil plus optimisé également :

Sub Lit_Adrs()
Dim Tbl As Range, Adrs As Range
Dim Ligne As Long, Ligne_Encour As Long
Dim Adresse_Mail As String
Dim Col As Byte
   
    Set Tbl = ActiveSheet.UsedRange
    Col = Tbl.Columns.Count
    Ligne = Tbl.Rows.Count
        For Each Adrs In Tbl
            If Adrs.Column = 3 Then
                Ligne_Encour = Adrs.Row
                If Ligne_Encour < Ligne Then
                        Adresse_Mail = Adresse_Mail & Adrs & ';'
                Else
                    Adresse_Mail = Adresse_Mail & Adrs
                End If
            End If
    Next Adrs

ThisWorkbook.FollowHyperlink Address:='mailto:' & Adresse_Mail
End Sub

Bonne Soirée enfin nuit !
[ol]@+Thierry[/ol]

 

[godillot]

Merci cela fonctionne godillot bonne fin d'année

 

[Loic28]

Rerere bonjour amis forumeur

je ne maitrise pas du tout VBA, j'ai essayé d'adapter le code donné à mon taleau, mais sans reussite, est ce que quelqu'un serai disposé à m'aider, soit en m'expliquant quoi changer, soit en modifiant directement mon fichier??
Merci d'avance
En fait moi les mails sont dans la colonne 3, je ne sais pas si le pb vient de là