Cheryl a une feuille de calcul qui contient de nombreux hyperliens. Le texte d’affichage de chaque lien hypertexte est différent de la cible du lien hypertexte. Ces hyperliens se trouvent tous dans la colonne A. Cheryl aimerait laisser le texte d’affichage dans la colonne A, déplacer l’URL cible dans la colonne B et supprimer l’hyperlien dans la colonne A. Ce dont elle a besoin pour terminer, c’est le texte d’affichage dans la colonne A , l’URL de la colonne B et aucun lien hypertexte actif dans la feuille de calcul.

Le traitement et l’extraction d’informations à partir d’hyperliens de cette manière nécessitent l’utilisation d’une macro. Voici un exemple de macro flexible qui examine les hyperliens présents dans la plage de cellules sélectionnée. Si un lien hypertexte est trouvé, l’URL du lien hypertexte est entrée à droite du lien hypertexte, puis le lien hypertexte lui-même est supprimé.

Cela laisse le texte d’affichage dans la cellule où se trouvait le lien hypertexte.

Sub GetHLInfo()

Dim rRng As Range     Dim cell As Range

Set rRng = ActiveSheet.Range(ActiveWindow.Selection.Address)

For Each cell In rRng         If cell.Hyperlinks.Count > 0 Then             cell.Offset(0, 1) = cell.Hyperlinks(1).Address             cell.Hyperlinks(1).Delete         End If     Next End Sub

_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 (9896) 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:

Extraction des informations sur l’hyperlien.