Selectionner un lien hypetexte avec userform

Luffy -  
m@rina Messages postés 27551 Date d'inscription   Statut Modérateur Dernière intervention   -
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

  1. m@rina Messages postés 27551 Date d'inscription   Statut Modérateur Dernière intervention   11 562
     
    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

    0
  2. Luffy
     
    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
    0
  3. m@rina Messages postés 27551 Date d'inscription   Statut Modérateur Dernière intervention   11 562
     
    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
    0