colonne de mails cliquables

[_Malo]

Bonjour,

J'ai un classeur sur lequel se trouvent plusieurs feuilles.
Dans chacune de ces feuilles se trouvent une colonne de mails.
Pour les insérer, j'ai fait un glisser à partir d'un autre document, ces mails ne sont donc pas automatiquement cliquables.

J'ai la possibilité de faire sur chaque cellule un double-clique qui rend alors l'adresse de cette cellule cliquable mais cette solution est assez fastidieuse considérant le très grand nombre de mails.
Je cherche donc le moyen de pouvoir sélectionner la colonne (en l’occurrence la B pour ce fichier) et de lui donner l'ordre de rendre tous les mails s'y trouvant cliquables.

L'un d'entre vous pourrait-il m'aider ?
Merci d'avance
_Malo

 

[DoubleZero]

Re : colonne de mails cliquables

Bonjour, _Malo, le Forum,

Peut-être avec ce code, après avoir sélectionné les cellules concernées :

Sub Mail_adresses_activer()
'Adaptation d'un code de Catrice (merci !)
Dim c As Range
For Each c In Selection
ActiveSheet.Hyperlinks.Add c, "Mailto:" & c
Next
End Sub

A bientôt 🙂

 

[_Malo]

Re : colonne de mails cliquables

Merci merci DoubleZero,

ça fonctionne très bien !
Bonne journée
_Malo