bonjour,

J'ai lu cette discussion.
j'ai vu votre réponse concernant un lien hypertexte dans une listbox.

je n'arrive pas a adapté votre code au mien, pouvez-vous m'aider?
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
24
25
26
27
28
29
30
Private Sub ListBox1_Click()
 Dim Link As String, CurrentRecord As Long
 CurrentRecord = Me.ListBox1.ListIndex + 1
 Link = rngData.Cells(CurrentRecord, 4).Hyperlinks(1).Address ' Adresse du lien
 ThisWorkbook.FollowHyperlink Link ' Charge le lien
End Sub
 
Private Sub TextBox1_Change()
 
    Application.ScreenUpdating = False
 
      ListBox1.Clear
 
    If TextBox1 <> "" Then
        For ligne = 2 To 65000
            If Sheets(2).Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
 
            End If
        Next
        For ligne = 2 To 65000
            If Sheets(2).Cells(ligne, 2) Like "*" & TextBox1 & "*" Then
            ListBox1.AddItem Sheets(2).Cells(ligne, 4)
            End If
        Next
 
 
    End If
 
 
End Sub
Quand je clique j'ai une erreur d’exécution '424'

sur la ligne: Link = rngData.Cells(CurrentRecord, 4).Hyperlinks(1).Address ' Adresse du lien

merci pour votre aide.