Discussion :

[ippo_master]

Bonjour,
Malgré quelques recherches sur la synthaxe propre au lienhypertexte, je n'arrive pas à résoudre mon problème.
Dans la macro, je viens mémoriser dans une variable le contenu d'une cellule Excel qui contient un lien hypertexte. Lorsque j'indique de recoller le contenu de la variable dans la listbox/textbox de ma userform, je perds la notion de lienhypertexte et je n'ai que du texte brut.

Dois-je ressimuler dans la listbox/textbox l'insertion du lien hypertexte ou existe t-il une autre façon de copier le contenu de la cellule contenant le lien hypertexte ?

Merci d'avance

[Pierre Fauconnier]

Bonjour

A priori, il n'y a pas de possibilités de saisie des liens hypertexte dans un textbox.

Je pense que la seule solution est le codage en VBA, selon le contenu du textbox. Si le texte affiché n'est pas le lien hypertexte lui-même, je ne vois qu'un contrôle caché associé au textbox (label par exemple) qui contiendra la valeur réelle du lien.

Pour alimenter ces contrôles, il faut utiliser la collection Hyperlinks de l'objet Range considéré.

Ok?

[ippo_master]

Je pense que la seule solution est le codage en VBA, selon le contenu du textbox.

C'est cette partie qui m'intéresse Pierre.
Donc comment reprendre tous les éléménts de la cellule contenant le lien hypertexte en VBA pour les réassocier à une textbox ?

J'ai trouvé ça dans l'aide qui se rapprocherait un peu

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    With UserForm1
        .ListBox1.AddItem Target.Address
        .Show
    End With
End Sub

[fred65200]

ippo_master

voila peut être une solution à ce que tu cherches

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim tablistbox1 As Variant
 
Private Sub ListBox1_Click()
's'il y a un @ on suit le lien
If InStr(1, ListBox1, "@") Then
  'remplace Sheets(1) par ta feuille
  Sheets(1).Range(tablistbox1(ListBox1.ListIndex)).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If
End Sub
 
Private Sub UserForm_Initialize()
'initialisation du tableau
tablistbox1 = Array()
For Each c In Sheets(1).Range("A1:A10") 'à modifier suivant tes données
  'on ajoute la valeur de la cellule au listbox
  ListBox1.AddItem (c)
  'on redimensionne le tableau
  ReDim Preserve tablistbox1(UBound(tablistbox1) + 1)
  'on ajoute l'adresse de la cellule au tableau
  tablistbox1(UBound(tablistbox1)) = c.Address
Next
End Sub

Salutations Fred65200

[fred65200]

Petite modif au code précédent

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub ListBox1_Click()
's'il y a un lien hypertexte on suit le lien
If Sheets(1).Range(tabListBox1(ListBox1.ListIndex)).Hyperlinks.Count = 1 Then
  'lien de type mailto ou http
  Sheets(1).Range(tabListBox1(ListBox1.ListIndex)).Hyperlinks(1).Follow _
    NewWindow:=False, AddHistory:=True
  On Error Resume Next
  'lien dans cellule
  Application.Goto Range(Sheets(1).Range(tabListBox1(ListBox1.ListIndex)). _
    Hyperlinks(1).SubAddress), True ' False
  Err.Clear: On Error GoTo 0
End If
' Unload Me
End Sub

[ippo_master]

Je crois que je n'ai pas été assez précis dans la description de mon problème.
Descriptif :
Je veux alimenter la Lisbox1 de ma Userform1 par les cellules A1,A2 et A3 de ma Sheets("Feuil1").
Ce qui donnerait le code suivant :

Code :

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

UserForm1.ListBox1.RowSource = ("Feuil1!A1:A3")

Particularité :
la colonne A (de A1:A3) ne contient que des valeurs de typer lien hypertexte (pointer sur un doc, lien web ou mailto)
Avec le code cité précédemment, je perds la notion de lien hypertexte et j'aimerais savoir comment la recréer cette notion pour chaque item de ma ListBox1.
Please