Activer plusieurs liens hypertexte messagerie

Question

Bonjour,

Je ne connais rien au VBA, mais je suis en mesure de copier-coller un code :D

J'ai un fichier avec énormément de lignes, incluant des adresses courriels, généré à partir de Salesforce... Les adresses courriel ne sont pas activées, à moins que je ne double-clique dessus chaque fois...

Existe-t-il un moyen plus rapide de transformer ma colonne B en liens hypertexte directement?

Merci!!

Zoul67 · Answer

Bonjour Choupinette (?!)

Sub essai()
    While ActiveCell.Value <> ""
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="mailto:" & ActiveCell.Value
        ActiveCell.Offset(1, 0).Select
    Wend
End Sub

A+

Activer plusieurs liens hypertexte messagerie

1 réponse

Discussions similaires

Newsletters