Trouver lien Hypertext !

Version imprimable

Bonjour,
Je suis indéniablement bloqué à une étape de mon projet VBA.
J'ai un fichier qui me permet d'ajouter un lien hypertexte en passant par un userform.
Seulement une fois un lien ajouter je voudrais le modifier.
Le problème est que quand je selectionne dans la combobox une cellule, je voudrais qu'il récupère le lien de cette celulle et qu'il l'indique dans la TextBox.
J'ai écrit un code mais il en fonctionne pas et je ne voit pas pourquoi !
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Combobox1_Click() Dim quoi As Variant Dim trouve As Range quoi = ComboBox1 With Sheets("feuil1").Range("A2:A65536") Set trouve = .Find(quoi, lookat:=xlWhole) If Not trouve Is Nothing Then TextBox1 = trouve.Hyperlinks.Address(0, 0) End If End With End Sub
Merci d'avance:D

Bonjour,

Un exemple à adapter à votre cas dans le fichier joint.

Ce fichier contient un onglet "Liste" contenant 3 liens hypertextes vers les autres onglets du fichier.

Dans Userform1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Combobox1_Click()
 
Dim HyperlienATrouver As Hyperlink
 
    TextBox1 = ""
    For Each HyperlienATrouver In Sheets("Liste").Hyperlinks
        For Each CelluleFeuille In AireFeuille
            If CelluleFeuille = HyperlienATrouver.Range And CStr(CelluleFeuille) = CStr(ComboBox1) Then
                TextBox1 = HyperlienATrouver.Name & Chr(10) & HyperlienATrouver.Range.Address
                Exit Sub
            End If
        Next CelluleFeuille
    Next HyperlienATrouver
 
End Sub

Dans le module Module_RechercheHyperlien

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Public AireFeuille As Range
Public CelluleFeuille As Range
 
 
Sub RechercheLienHypertexte()
 
    Set AireFeuille = Sheets("Liste").Range("ListeFeuille")
 
    With UserForm1
         For Each CelluleFeuille In AireFeuille
             .ComboBox1.AddItem CelluleFeuille
         Next CelluleFeuille
         .Show
    End With
 
    Set AireFeuille = Nothing
 
End Sub

Cordialement.

02/04/2015, 15h06
floflo50100

1 pièce(s) jointe(s)

Rebonjour,
Je recherche le chemin du lien suivant la cellule que je choisi à partir du combobox (voir ci dessous)
Pièce jointe 173643
C'est possible ?

Je n'ai pas réussi à ajouter directement le chemin complet du lien hypertexte depuis les propriétés du lien. Si vous avez essayé le fichier transmis, les liens pointent sur des onglets. Si vous remplacez ce lien par un lien pointant sur un fichier, vous aurez avec la propriété .name, la première ligne du textbox du vidage d'écran ci-dessous.

En revanche si lors de la création du lien vous remplissez la propriété infobulle du lien (.ScreenTip) par le chemin complet, vous pourrez le récupérer comme la 3 ème ligne du textbox.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Private Sub Combobox1_Click() Dim HyperlienATrouver As Hyperlink TextBox1 = "" For Each HyperlienATrouver In Sheets("Liste").Hyperlinks For Each CelluleFeuille In AireFeuille If CelluleFeuille = HyperlienATrouver.Range And CStr(CelluleFeuille) = CStr(ComboBox1) Then TextBox1 = HyperlienATrouver.Name & Chr(10) & HyperlienATrouver.Range.Address & Chr(10) & HyperlienATrouver.ScreenTip Exit Sub End If Next CelluleFeuille Next HyperlienATrouver End Sub
Cordialement.