Activer liens hypertextes mailto sur plusieurs cellules

Bonjour !

Quand on tape une adresse mail dans une cellule et qu'on valide avec entrée, le lien hypertexte "mailto:" s'active automatiquement. Quand on copie-colle 250 adresses mails dans 250 cellules, oualou ! On peut double-cliquer sur chaque cellule et valider par entrée, ou créer une autre colonne avec des fonctions du type =LIEN_HYPERTEXTE("mailto:"&B2;B2), mais est-ce qu'il n'existe pas un raccourci, un bouton, une commande qui activerait tous les liens hypertextes automatiquement en sélectionnant la colonne concernée ?

Bonjour

Pour activer tous les liens de la plage H9:H100

Tu crées un bouton auquel tu affectes cette Macro (Macro dans un Module)

Sub Activer_Liens()   
    Dim c As Range
    For Each c In Range("H9:H100")
    c.Hyperlinks.Add c, c.Value
    Next c
End Sub

Pour supprmer tous les liens de la feuille

Sub ZapHyperlinks()
    Cells.Hyperlinks.Delete
End Sub

Cordialement

Merci pour ta réponse. J'avais oublié de mettre à jour mon adresse mail dans le forum et je n'ai pas eu la notification

J'ai fait ce que tu décris, mais les liens créés renvoient vers file:///C:\le_chemin_du_fichier\le_texte@de_la_cellule au lieu de renvoyer vers mailto:le_texte@de_la_cellule.

Bonjour

Ci joint un fichier exemple avec un code qui fonctionne.

Cette solution était donnée en 2007 par Alain0654

Le code pour activer les adresses mail de A1 à A30

Pour éviter le plantage avec les lignes vides, j'ai ajouté l'instruction.

Sub Activer_Adresses_Mail()
Dim Cell As Range
Range("A1:a30").Select
On Error Resume Next
For Each Cell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:="mailto:" & Cell.Value, _
TextToDisplay:=Cell.Value
Next
End Sub

Cordialement

Ça marche nickel ! Merci