John a un classeur qui contient bien plus d’un millier d’URL, le tout dans la colonne A. Ce ne sont pas des hyperliens; il s’agit de texte simple d’URL individuelles. John souhaite convertir les URL en hyperliens actifs, mais effectuer la conversion individuellement est extrêmement fastidieux, en particulier pour autant d’URL.

Comme c’est le cas avec la plupart des ennuis dans Excel, la solution consiste à utiliser une macro pour effectuer la conversion. Pour être efficace, la macro doit parcourir chaque cellule dans une plage sélectionnée et, si la cellule n’est pas vide, convertir le contenu en un lien hypertexte. Ce qui suit fera l’affaire:

Sub URL_List()

For Each cell In Selection         If cell.Value <> "" Then             If Left(cell.Value, 7) = "http://" Then                 URL = cell.Value             Else                 URL = "http://" + cell.Value             End If             ActiveSheet.Hyperlinks.Add Anchor:=cell, _               Address:=URL, TextToDisplay:=cell.Value         End If     Next cell End Sub

La macro n’est pas infaillible; il suppose que si une cellule contient quelque chose, c’est une URL valide. Il vérifie le contenu de la cellule et, si le contenu n’est pas précédé du texte «http: //», il est ajouté. Le lien hypertexte est ensuite créé en fonction du contenu de la cellule.

_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 (3110) s’applique à Microsoft Excel 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-Converting_a_Range_of_URLs_to_Hyperlinks [Conversion d’une plage d’URL en hyperliens].