Avez-vous une feuille de calcul qui contient un tas d’adresses e-mail, sous la forme d’une série d’hyperliens? Si tel est le cas, vous pourriez être intéressé par un moyen d’extraire ces adresses et de les mettre dans des cellules sous forme de texte brut. Vous pouvez effectuer cette tâche de plusieurs manières.

La première méthode consiste à se rappeler que les liens hypertexte des adresses électroniques commencent tous par le texte «mailto» suivi de deux points. Ainsi, vous pouvez utiliser une formule qui supprimera la première partie du lien hypertexte. Par exemple, si le lien hypertexte du courrier électronique se trouve dans la cellule A1, vous pouvez utiliser cette formule:

=RIGHT(A1,LEN(A1)-7)

Cela vérifie la longueur du contenu de la cellule, puis en extrait tout sauf les sept premiers caractères, qui sont la partie «mailto:». Vous pouvez également utiliser une formule reposant sur la fonction SUBSTITUTE:

=SUBSTITUTE(A1,"mailto:","")

Si vous préférez, vous pouvez utiliser une macro pour effectuer la conversion d’un lien hypertexte en une adresse de messagerie texte uniquement. La macro sur une seule ligne suivante est une fonction définie par l’utilisateur qui renvoie le lien hypertexte converti:

Function ExtractEmailAddress(rCell As Range)

ExtractEmailAddress = _       Mid(rCell.Hyperlinks(1).Address, 8)

End Function

Pour utiliser la macro, tout ce que vous avez à faire est d’utiliser la fonction dans une cellule de votre feuille de calcul, de cette manière:

=ExtractEmailAddress(A1)

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2897) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

link: / excelribbon-Extracting_E-mail_Addresses_from_Hyperlinks [Extraction d’adresses e-mail à partir d’hyperliens].