Activer un lien dans une listeBox

Bonjour,

J'ai fait des recherches sur le forum, mais je ne trouve pas la réponse.

J'ai une macro qui gère des listeBox.

Dans une listeBox. je récupère le lien d'une cellule.

Mais ce lien n'est pas cliquable.

J'ai essayé des codes sans succès.

'Sub ListBox4_Click()
'Selection.Hyperlinks(Me.ListBox4) = True .Hyperlinks(5).Follow
'End Sub

Sub TextBox1_Change()
  Dim Search As Range, Ligne As Byte
  ListBox1.Clear: ListBox2.Clear: ListBox3.Clear: ListBox4.Clear: If TextBox1 = "" Then Exit Sub
  With Worksheets("groupe")
    For Ligne = 2 To 200
      If .Cells(Ligne, 1) Like "*" & TextBox1 & "*" Then
        ListBox1.AddItem .Cells(Ligne, 2)
        ListBox2.AddItem .Cells(Ligne, 3)
        ListBox3.AddItem .Cells(Ligne, 4)
        ListBox4.AddItem .Cells(Ligne, 5)
        OffAction = False
      End If
    Next Ligne
  End With
End Sub

je vous joint aussi le fichier.

Il est protégé en enregistrement; pour enlever la protection, il faut activer l'icône "Mode de création".

Merci.

Bonjour

J'ai modifié ta macro en faisant en sorte que tu puisses suivre un lien en cliquant sur ta listbox4, je te laisse vérifier les éventuels bugs:

Sub ListBox4_Click()
On Error Resume Next
Worksheets("groupe").Cells(ListBox4.List(ListBox4.ListIndex, 1), 5).Hyperlinks(1).Follow
End Sub

Sub TextBox1_Change()
  Dim Search As Range, Ligne As Byte
  ListBox1.Clear: ListBox2.Clear: ListBox3.Clear: ListBox4.Clear: If TextBox1 = "" Then Exit Sub
  With Worksheets("groupe")
    For Ligne = 2 To 200
      If .Cells(Ligne, 1) Like "*" & TextBox1 & "*" Then
        ListBox1.AddItem .Cells(Ligne, 2)
        ListBox2.AddItem .Cells(Ligne, 3)
        ListBox3.AddItem .Cells(Ligne, 4)
        ListBox4.AddItem .Cells(Ligne, 5)
        ListBox4.List(ListBox4.ListCount - 1, 1) = Ligne
        OffAction = False
      End If
    Next Ligne
  End With
End Sub

Bonjour Ausecour,

C'est super et génial.

Je vais étudier ta macro.

Un grand merci.

Re

De rien!

merci d'avoir passé le sujet en résolu