Lien Hypertexte dans Userform

zouzou76190 · 4 Avril 2014

Bonjour,

Dans une Userform, je récupère des données pour les afficher dans des TextBox avec des codes de ce genre:
Me.TextBox = .Cells(LignesDestination, 13)
Me.TextBox2 = .Cells(LignesDestination, 15)
.......

J'ai un lien Hypertexte sur une de ces valeurs, mais bien sur il ne s'affiche pas dans ma TextBox.
Est-il possible de créer un bouton qui irait de la même façon recherche l'adresse dans une cellule ou bien récupérer au moins l'adresse du lien?

Merci

zouzou76190 · 4 Avril 2014

Re : Lien Hypertexte dans Userform

zouzou76190 à dit:
Bonjour,

Dans une Userform, je récupère des données pour les afficher dans des TextBox avec des codes de ce genre:
Me.TextBox = .Cells(LignesDestination, 13)
Me.TextBox2 = .Cells(LignesDestination, 15)
.......

J'ai un lien Hypertexte sur une de ces valeurs, mais bien sur il ne s'affiche pas dans ma TextBox.
Est-il possible de créer un bouton qui irait de la même façon recherche l'adresse dans une cellule ou bien récupérer au moins l'adresse du lien?

Merci

Me.TextBox = .Cells(LignesDestination, 13).Hyperlinks(1).Address
Maintenant que j'ai trouvé pour l'adresse dans une textbox, il y a possibilité de créer un bouton qui renvoie vers cette adresse, ou un double click sur cette textbox?

Pierrot93 · 4 Avril 2014

Re : Lien Hypertexte dans Userform

Bonjour,

regarde peut être ceci :

Code:

Option Explicit
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> "" Then Application.Goto TextBox1
End Sub

non testé, fonction aussi de l'adresse....

bonne journée
@+

Edition : bonjour tatiak

Pierrot93 · 4 Avril 2014

Re : Lien Hypertexte dans Userform

Re,

voir aussi ceci :

Code:

Option Explicit
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If TextBox1 <> "" Then ThisWorkbook.FollowHyperlink TextBox1
End Sub

zouzou76190 · 4 Avril 2014

Re : Lien Hypertexte dans Userform

Pierrot93 à dit:
Re,

voir aussi ceci :

Code:

Option Explicit Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If TextBox1 <> "" Then ThisWorkbook.FollowHyperlink TextBox1 End Sub

C'est juste ce qu'il fallait. Merci

Lien Hypertexte dans Userform

zouzou76190

XLDnaute Nouveau

zouzou76190

XLDnaute Nouveau

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

zouzou76190

XLDnaute Nouveau

Discussions similaires