Listbox lienshypertexte

Bonjour,

je suis parti de ce super tuto pour me faire mon champs de recherche.

https://www.blog-excel.com/creer-un-champ-de-recherche-vba/

Option Compare Text

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

    Range("A2:B24").Interior.ColorIndex = 2
    ListBox1.Clear

    If TextBox1 <> "" Then
        For ligne = 2 To 24
            For colonne = 1 To 2
                If Cells(ligne, colonne) Like "*" & TextBox1 & "*" Then
                    Cells(ligne, colonne).Interior.ColorIndex = 43
                    ListBox1.AddItem Cells(ligne, colonne)
                End If
            Next
        Next
    End If

End Sub

J'ai un champs qui est un hypertexte et je voudrai que dans ma listebox ce champs soit cliquable.

Comment faut il procéder?

D'avance un grand merci pour votre aide

Dd

Bonjour,

Sur la ListBox, tu sélectionnes une ligne, et non une colonne particulière sur cette ligne. Rien ne distinguera les cas où tu sélectionnes pour activer le lien de ceux où tu ne le souhaites.

Ceci étant, tu peux faire en sorte qu'à la sélection le lien soit activé. Vu la constitution de ta liste, tu n'as aucun mal à identifier la cellule où se trouve le lien, donc à l'activer. Il te faut programmer l'évènement correspondant au choix dans ta ListBox pour ce faire.

Tu devrais trouver d'autres sujets sur le même thème, il y en a eu un assez récemment.

Cordialement.

Pour t'éviter la recherche : https://forum.excel-pratique.com/post453216.html#p453216

Il y a le code final dans le dernier post. Toute la logique est expliqué dans le fil de discussion.

Bonjour,

merci beaucoup de pour votre aide je regarde tout ça et vous fait un retour.

Bonne semaine et encore merci

dd