Listbox vers cellule

Bonjour à tous,

J'ai actuellement un champ de recherche que j'ai réussis à faire grâce à la page Blog-excel.

Malgré mon faible niveau en VBA, j'ai réussis à modifier selon mes envies.

Mais je me retrouve bloqué actuellement, car je souhaiterai pouvoir cliquer sur le résultat de la listbox, afin qu'elle me ramène directement sur la cellule.

J'ai tenté les lignes suivantes mais j'ai un message d'erreur.

Option Compare Text

Private Sub ListBox1_Click()

    With ListBox1

        Cells(.List(.ListIndex, 1), 4).Select

    End With

End Sub
Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

    Range("A12:J20000").Interior.ColorIndex = 2
    ListBox1.Clear

    If TextBox1 <> "" Then
        For ligne = 12 To 20000
            If Cells(ligne, 4) Like "*" & TextBox1 & "*" Then
                Range("A" & ligne & ":J" & ligne).Interior.ColorIndex = 6
                ListBox1.AddItem Cells(ligne, 4)

            End If
        Next
    End If

End Sub

Vous trouverez un fichier modèle en pièce jointe.

Merci d'avance de votre retour.

20copie-export.zip (131.41 Ko)

Bonjour,

Ceci permettra de trouver la ligne dans laquelle figure l'item sélectionné dans la ListBox, puis d'afficher la ligne en question en haut de la feuille (... le résultat sera sans doute un chouïa plus élégant, si on fige le volet sous les titres de la ligne 11 ):

Private Sub ListBox1_Click()
    ligne = Application.Match(ListBox1.List(ListBox1.ListIndex), [D:D], 0)
    If Not IsError(ligne) Then ActiveWindow.ScrollRow = ligne
End Sub

Un grand merci !

C'est encore mieux que dans mes rêves.

Merci pour tes précieux conseil cela donne vraiment une recherche optimisée !

Wahou vos deux fonctions font vraiment du super boulot ! J'adore

Bonjour,

Petite modif en cours :

https://forum.excel-pratique.com/viewtopic.php?f=2&t=104636

Si jamais U. Milité tu repasse par là !

Merci d'avance.

Rechercher des sujets similaires à "listbox"