Discussion :

[floflo50100]

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 :

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

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

[Invité]

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 :

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 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 :

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
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.

[floflo50100]

Rebonjour,
Je recherche le chemin du lien suivant la cellule que je choisi à partir du combobox (voir ci dessous)

C'est possible ?

[Invité]

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 :

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 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.