Forum Discussion

CEFIPS's avatar
CEFIPS
Copper Contributor
Jan 03, 2024
Solved

Renvoyer un contenu de cellule qui contient un lien hypertexte

Bonjour, j'ai une feuille A avec entre autres une colonne listant tous les titres de formations, chaque cellule contient le lien vers le programme hébergé sur un drive.  

pour besoin de mise en page différente selon les besoins, je crée une feuille B qui reprend certaines colonnes de A dont la colonne titres de formations, en renvoyant le contenu avec le signe égal

Le problème c'est que cela ne renvoie que le texte et je veux aussi le lien hypertexte contenu dans la cellule initiale.

Merci

  • Vous pouvez créer une fonction VBA personnalisée:

    Function AdresseLien(Cellule As Range) As String
        AdresseLien = Cellule.Hyperlinks(1).Address
    End Function

    AdresseLien renvoie le lien de la cellule.

    Utilisez comme ci:

     

    =HYPERLINK(AdresseLien('Feuille A'!A2), 'Feuille A'!A2)

2 Replies

  • Vous pouvez créer une fonction VBA personnalisée:

    Function AdresseLien(Cellule As Range) As String
        AdresseLien = Cellule.Hyperlinks(1).Address
    End Function

    AdresseLien renvoie le lien de la cellule.

    Utilisez comme ci:

     

    =HYPERLINK(AdresseLien('Feuille A'!A2), 'Feuille A'!A2)

    • CEFIPS's avatar
      CEFIPS
      Copper Contributor

      MERCI BEAUCOUP ! Je viens d'apprendre à faire une VBA perso ^^

      par contre j'ai modifié (après plusieurs tâtonnements) pour que cela fonctionne sur ma version en

      =LIEN_HYPERTEXTE(AdresseLien('Feuille A'!A2)'Feuille A'!A2)

      Vous nous avez fait entrer dans une nouvelle dimension d' :xd: :xd: Merci encore :stareyes: !