Comment convertir plusieurs adresses e-mail en hyperliens dans Excel ? 

Si vous avez une liste d'adresses e-mail en texte brut dans Excel et que vous souhaitez les convertir en hyperliens cliquables pour envoyer des e-mails, le faire manuellement pour plusieurs entrées peut être chronophage. Ce guide présente deux méthodes efficaces : l'utilisation de la formule HYPERLIEN ou d'une macro VBA.

Convertir plusieurs adresses e-mail en hyperliens avec une formule

Convertir plusieurs adresses e-mail en hyperliens avec du code VBA

Convertir plusieurs adresses e-mail en hyperliens avec une formule

Avec la fonction Hyperlien, vous pouvez rapidement convertir les adresses e-mail d'une colonne en adresses avec des hyperliens en une seule fois.

1. Entrez cette formule =hyperlink("mailto:"&A2) dans une cellule vide où vous souhaitez afficher le résultat, voir capture d'écran :

2. Ensuite, faites glisser la poignée de recopie vers le bas jusqu'aux cellules où vous souhaitez appliquer cette formule, et toutes les adresses e-mail deviendront des hyperliens cliquables comme le montre la capture d'écran suivante :

Convertir plusieurs adresses e-mail en hyperliens avec du code VBA

Comme vous pouvez le constater, en utilisant la formule ci-dessus, une chaîne « mailto: » sera ajoutée devant chaque adresse e-mail. Si vous ne souhaitez pas que « mailto: » apparaisse dans les adresses, le code VBA suivant pourrait vous aider.

1. Maintenez les touches Alt + F11 enfoncées dans Excel, ce qui ouvre la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insertion > Module, puis collez la macro suivante dans la fenêtre Module.

Code VBA : Convertir plusieurs adresses e-mail en hyperliens

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Après avoir collé le code, appuyez sur la touche F5 pour exécuter le code. Une boîte de dialogue apparaîtra, vous demandant de sélectionner la plage de données à traiter, voir capture d'écran :

4. Puis cliquez sur OK, toutes les adresses e-mail sélectionnées auront été converties en adresses avec des hyperliens, voir capture d'écran :