Hyperlinks en vba

Option Explicit

Private Sub UserForm_Initialize()
Dim H As Hyperlink
   
    For Each H In Worksheets(1).Hyperlinks
        If H.Range.Address = ActiveCell.Address Then
            With Me.Label1
            .Caption = H.Parent
            .Tag = H.Address
            End With
        End If
    Next

End Sub
Private Sub Label1_Click()
    ThisWorkbook.FollowHyperlink Me.Label1.Tag
End Sub

Cliquez pour agrandir...

Private Sub UserForm_Initialize()
Dim Cell As Range
Dim H As Hyperlink
   
Set Cell = Sheets('Sheet1').Range('A1')
   
    For Each H In Worksheets(1).Hyperlinks
        If H.Range.Address = Cell.Address Then
            With Me.Label1
            .Caption = H.Parent
            .Tag = H.Address
            End With
        End If
    Next

End Sub
Private Sub Label1_Click()
    ThisWorkbook.FollowHyperlink Me.Label1.Tag
End Sub

Cliquez pour agrandir...

Private Sub UserForm_Initialize()
Dim Cell As Range
Dim H As Hyperlink
Dim i As Byte
   
    With Sheets('Sheet1')
        For Each H In .Hyperlinks
            For Each Cell In .Range('A1:A10')
                If H.Range.Address = Cell.Address Then
                i = i + 1
                    With Me.Controls('Label' & i)
                        .Caption = H.Parent
                        .Tag = H.Address
                    End With
                End If
            Next Cell
        Next H
    End With
End Sub

Cliquez pour agrandir...