XL 2016 Listbox et lien hypertext !

Bonjour,
Aucune réponse ???
Ce n'est pas possible ?
SVP merci de me dire si cela est réalisable, ou bien j'arrête d'imaginer mon système de recherche comme ça.

D'avance merci

Bonjour.
Application.FollowHyperLink (rechercher cette méthode avec F1) devrait permettre de le réaliser, si vous prenez soin de garder dans un tableau ce qu'il faut pour retrouver les éléments nécessaires que vous n'incorporez pas à la ListBox.

Bonjour et merci pour la réponse.
Je ne suis pas assez "calé" pour faire des choses compliqués.
Pour le partage, je vous donne le code que m'a donné Eric sur un autre forum et qui répond à mon besoin.
Code :
Option Compare Text

Private Sub ListBox1_Click()

Dim LigneEnCours As Long
Dim NumeroListe As Long

Range("A13:A999").Interior.ColorIndex = 2
For LigneEnCours = 13 To 999
If Cells(LigneEnCours, 1) = ListBox1.Value Then
With Cells(LigneEnCours, 1)
.Interior.ColorIndex = 43
.Select
Exit For
End With
End If
Next

End Sub

Private Sub TextBox1_Change()

Dim DerniereLigne As Long
Dim LigneEnCours As Long
Dim NumeroListe As Long
Application.ScreenUpdating = False

Range("A13:A999").Interior.ColorIndex = 2
ListBox1.Clear
NumeroListe = 0

If TextBox1 <> "" Then
For LigneEnCours = 13 To 999

If Cells(LigneEnCours, 1) Like "*" & TextBox1 & "*" Then
Cells(LigneEnCours, 1).Interior.ColorIndex = 43
ListBox1.AddItem Cells(LigneEnCours, 1)
ListBox1.List(NumeroListe, 1) = Cells(LigneEnCours, 2)
ListBox1.List(NumeroListe, 2) = Cells(LigneEnCours, 3)
NumeroListe = NumeroListe + 1

End If
Next
End If
Application.ScreenUpdating = True

End Sub

Voilà, si ça peut servir à quelqu'un.

Bonne continuation

Jean-Luc