copier coller adresse mail

[castor30]

Bonjour le forum,
J'ai besoin de vos lumières pour coller des adresses mail (300) et vous en remercie.
Je sélectionne les dites adresses puis je les colle, ça me donne :
aaaaa@sfr.fr (police noire)
bbbbb@gmail.com [EMAIL='aaaaa@sfr.fr'](police noire)[/EMAIL]
Mais les liens ne sont pas actifs, je voudrais les retrouver comme ci-après :
aaaaa@sfr.fr
bbbbb@gmail.com

 

[Staple1600]

Bonjour le fil, le forum

@castor30
Un fichier Excel exemple avec une cinquantaine d'emails à fictifs à nos fournir?
Non ?

Ok, alors allons voir dans un autre post, s'il y a un fichier exemple fourni par le demandeur qui facilite toujours la résolution des questions...

 

[castor30]

Bonjour Staple,
Merci de me répondre
Voici un classeur exemple

 

[Staple1600]

Re
@castor30
Inscrit depuis 2014 et ce point crucial de la charte ne t'es pas resté en mémoire...

5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.

​

Sinon, les liens sont actifs (passe ta souris dessus et tu verras)

 

[castor30]

Re,
Désolé, oubli de ma part.
Les liens ne sont pas actifs dans les colonnes N et O

 

[Staple1600]

Re

Difficile de tester puisque...


Essaie cette modif

Sub ExportDestDuMail_V2()
Columns("E:G").AutoFilter 1, "X"
[ExportDestMailCc].Copy [ReceptDestMailCc]
Columns("E:G").AutoFilter 1
Columns("E:G").AutoFilter 3, "X"
[ExportDestMailCci].Copy [ReceptDestMailCci]
Columns("E:G").AutoFilter
Columns("E:G").Select
CmdRazSelection_Click
[H3].Select
End Sub

ou celle-ci

Sub ExportDestDuMail_V_avec_Endvies()
With Columns("E:G")
    .AutoFilter 1, "X"
    [ExportDestMailCc].Copy [ReceptDestMailCc]
    .AutoFilter 1
    .AutoFilter 3, "X"
    [ExportDestMailCci].Copy [ReceptDestMailCci]
    .AutoFilter
    .Select
    End With
CmdRazSelection_Click
[H3].Select
End Sub

 

[castor30]

Re,
Merci beaucoup pour ton code qui fonctionne parfaitement et plus court que le mien.
Je te souhaite un excellent Week-end.