Selectionner un lien hypetexte avec userform

Bonjour ,

Ma question est dans le titre lol comment je pourrai faire pour que dans un userforme s'affiche le lien hypertexte d'une cellule et qu'il sois activable à partir de cette userform?

Merci a tous

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. Modérateur
    Bonjour,

    Admettons que tu veuilles afficher dans un label le lien hypertexte d'une cellule :

    me.Label1.Caption = sheets(mafeuille).Range(ma cellule).Hyperlinks(1).Address

    m@rina

    1. Re,

      Dans le cas ou je me trouve la valeur de la cellule varie j'ai essayer de rajouter .Hyperlinks(1).Address à la fin mais sans succès as tu une idée ?

      je te mets le code :

      Bus = Sheets("base").Cells(L, 5)
      Me.Label11.Caption = Bus (c'est à cet endroit que j'ai rajouter le .Hyperlinks(1).Address).

      Merci encore pour ton aide
      1. Modérateur
        Bonsoir,

        Non, ça ne pose pas de problème que la cellule change mais je ne sais pas comment est fait ton code. Il faut bien un événement pour que le label change avec la cellule.

        Mets plutôt :

        Set Bus = Sheets("base").Cells(L, 5)
        Me.Label11.Caption = Bus.Hyperlinks(1).Address).

        m@rina