VBA - Recherche + sélection de ligne

Bonjour à tous !

J'ai suivi un des tutos présent sur le site, concernant la barre de recherche dans Excel.

L'idée étant de créer un "mini moteur de recherche" à partir d'une vaste base de données.

J'ai donc le code suivant :

Option Compare Text

Private Sub ListBox1_Click()

End Sub

Private Sub TextBox1_Change()
Application.ScreenUpdating = False

    Range("A6:A600").Interior.ColorIndex = 2
    ListBox1.Clear

    If TextBox1 <> "" Then
        For ligne = 6 To 600
            If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 1).Interior.ColorIndex = 46
                ListBox1.AddItem Cells(ligne, 1)
            End If
        Next
    End If

End Sub

Ce que j'aimerai maintenant, c'est que lorsqu'une recherche abouti, je puisse double clicker sur un résultat et que la ligne en question soit sélectionné.

Mais je ne sais pas pas comment faire.

Je suis preneur de toutes idées pour avancer sur mon problème.

Merci à vous !

Bonne journée !

Cordialement,

Bonjour JPW, bonjour le forum,

J'avais préparé cet exemple pour une autre personne mais il devrait aussi te servir. Le code est commenté.

Hello ThauThème !

Merci d'avoir pris le temps de me répondre

Malheureusement, je n'arrive pas à appliquer ton exemple sur mon problème :'(

En effet, quand je rajoute la méthode 'click', c'est tout le bloc 'ListBox' qui se sélectionne et je ne peux plus sélectionner un résultat.

Si tu vois comment faire pour palier à ce problème, je suis preneur

Bonne journée !

Bonjour JPW, bonjour le forum,

Dans l'exemple proposé, la sélection se faisait au double-click. Dans la pièce jointe elle se fait désormais au clic. J'ai juste remplacé le nom de la procédure...