Discussion :

[wabo67]

Bonjour a tous,

Petit probleme pour copier un lien hypertext

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Plan = ActiveCell.Offset(0, 12).Value 'décale pour trouver le Plan
'
'
'
TextBox11.Text = Plan

Dans un tableau j'ai les plan en liens hypertext ici en colone 12
Mais par contre quand je clique sur le texte de TextBox11 il ne transfert par le liens.

Pouvez vous m aider

Merci d avance

[fred65200]

bonjour,

Hyperlinks, objet
Représente la collection de liens hypertexte d'une plage ou d'une feuille de calcul.

Je me suis un peu amusé ce soir,
dans le classeur joint, facilement adaptable

un userform avec un label et un imagelist pour stocker le curseur de sélection de lien, non disponible dans VBA
Au survol du label, le curseur de "sélection de lien" s'affiche
Un clic sur le label et on suit le lien
La police du label change de couleur (lien visité).

En espérant que ça t'aidera

Cordialement

[wabo67]

Salut,

J'ai essayé d adapter ta solution dans mon programme, par contre mon lien change pour chaque reference, je n'arrive pas a l adapter.

je t'envoie mon fichier si tu peux me mettre sur la piste, tu comprendras peut etre mieux ce que je recherche

[wabo67]

oups j'ai oublié le fichier

[fred65200]

bonsoir,

toujours pas de fichier.