[VBA-E] Reprendre le contenu d'une cellule avec lienhypertexte dans textbox/listbox

Version imprimable

27/09/2007, 14h48
ippo_master

[VBA-E] Reprendre le contenu d'une cellule avec lienhypertexte dans textbox/listbox

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
27/09/2007, 15h39
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?
27/09/2007, 16h34
ippo_master
Citation:

Envoyé par Pierre Fauconnier

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:

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

Lien hypertext dans ListBox (ou ComboBox)

ippo_master

voila peut être une solution à ce que tu cherches

Code:

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

Petite modif au code précédent

Code:

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

28/09/2007, 08h33
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:

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 8O
28/09/2007, 09h08
ouskel'n'or

Pour utiliser les liens hypertexte, tu dois associer chaque item de ta liste au lien se trouvant dans la feuille de calculs.
Je suppose une liste de tes liens de A1 à A12 placée dans la feuille de calculs Feuil1, une liste renseignée avec Rowsource = "A1:A12"
Les Index de ta liste = 1 à 12
Une sélection d'un lien dans ta liste entraîne-> Lindex = LaListe.ListeIndex
Pour réaliser le lien, tu dois passer par la feuille de calcul :

Code:

Worksheets("Feuil1").Range("A1:A12").Hyperlinks(Lindex).Follow

Extrait de l'aide :

Citation:

Follow : Cette méthode affiche un document mis en mémoire cache, s'il a déjà été téléchargé. Sinon, cette méthode résout le lien hypertexte, télécharge le document cible et affiche le document dans l'application appropriée.

Yataaaaaaa~
Merci à vous, je viens enfin de saisir la logique après avoir essayé de bidouiller quelque chose de mon côté à partir de vos réponses.
Que je mets ici pour info mais plus complexe que la solution de ouskel'n'or ;)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub ListBox1_Click() Dim Lien As String Lien = UserForm1.ListBox1.Text Dim i As Integer i = 2 Worksheets("Feuil1").Select Do While Cells(i, 1) <> "" If Cells(i, 1).Value = Lien Then Worksheets("Feuil1").Cells(i, 1).Hyperlinks.Item(1).Follow Exit Sub End If i = i + 1 Loop End Sub
Je crois qu'il roule mon carosse :king: