Question recherche Excel

Bonjour,

J'ai suivi l'exemple de recherche du site : https://www.blog-excel.com/creer-un-champ-de-recherche-vba/

J'ai un petit problème et 2-3 questions:-)

Voici mon code:

Option Compare Text

Private Sub ListBox1_Click()

End Sub

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

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

    If TextBox1 <> "" Then
        For ligne = 16 To 5000
            For colonne = 1 To 3
                If Cells(ligne, colonne) Like "*" & TextBox1 & "*" Then
                    Range(ligne & ":" & ligne).Interior.ColorIndex = 43
                    ListBox1.AddItem Cells(ligne, 1) & " - " & Cells(ligne, 3) & " - " & Cells(ligne, 4)

                End If
            Next
        Next
    End If

End Sub

Lorsque je fais une recherche une partie lignes des collones après la 3 restent vertes.

Comment faire pour reseter la couleur ?

Est il possible de pouvoir cliquer sur un des champ et arriver a la bonne ligne ?

Merci d'avance

bonjour,

proposition d'adaptation de ton code

Option Compare Text

Private Sub ListBox1_Click()
c = Split(ListBox1.List(ListBox1.ListIndex), " - ")(0) + 0
sheets("feuil1").select
Application.Goto "R" & c & "C1"
Unload UserForm1
End Sub

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False
    With Sheets("feuil1") 'nom de la feuille
    dl = .Cells(Rows.Count, 1).End(xlUp).Row 'nombre de lignes du tableau sur base de la colonne 1
    Range("A2:S" & dl).Interior.ColorIndex = 2 'supprimer les couleurs sur les colonnes A à S
    ListBox1.Clear
    If TextBox1 <> "" Then
        For ligne = 16 To dl
            For colonne = 1 To 3
                If Cells(ligne, colonne) Like "*" & TextBox1 & "*" Then
                    .Range(ligne & ":" & ligne).Interior.ColorIndex = 43
                    ListBox1.AddItem ligne & " - " & .Cells(ligne, 1) & " - " & .Cells(ligne, 3) & " - " & .Cells(ligne, 4) 'on ajoute le n° de ligne dans la listbox1 suivi des autres données
                End If
            Next
        Next
    End If
 End With
End Sub

Geni al je teste ca lundi

SAlut,

a première vue ca a l'air de fonctionner.

J'obtiens une erreur lorsque je clique sur un résultat .

Il surligne en jaune la ligne "Unload UserForm1"

jme a écrit :

J'obtiens une erreur lorsque je clique sur un résultat .

Il surligne en jaune la ligne "Unload UserForm1"

bonjour,

supprime simplement la ligne. Ne disposant pas de ton classeur, on doit essayer d'imaginer à quoi il pourrait ressembler, parfois on se trompe ...

Yeah Génial ca fonctionne

Bonjour,

est il possible que lorsqu'on efface le contenu du champ de recherche que le fichier remonte à la premiere ligne de donnée ?

bonjour,

essaie ceci, non testé

Option Compare Text

Private Sub ListBox1_Click()
    c = Split(ListBox1.List(ListBox1.ListIndex), " - ")(0) + 0
    Sheets("feuil1").Select
    Application.Goto "R" & c & "C1"
End Sub

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False
    With Sheets("feuil1")    'nom de la feuille
        dl = .Cells(Rows.Count, 1).End(xlUp).Row    'nombre de lignes du tableau sur base de la colonne 1
        Range("A2:S" & dl).Interior.ColorIndex = 2    'supprimer les couleurs sur les colonnes A à S
        ListBox1.Clear
        If TextBox1 <> "" Then
            For ligne = 16 To dl
                For colonne = 1 To 3
                    If Cells(ligne, colonne) Like "*" & TextBox1 & "*" Then
                        .Range(ligne & ":" & ligne).Interior.ColorIndex = 43
                        ListBox1.AddItem ligne & " - " & .Cells(ligne, 1) & " - " & .Cells(ligne, 3) & " - " & .Cells(ligne, 4)    'on ajoute le n° de ligne dans la listbox1 suivi des autres données
                    End If
                Next
            Next
        Else
            .Select
            .Range("A1").Select
        End If
    End With
End Sub

en fait le cuseur remote bien en A1.

Je n'ai pas été assez claire dans mon explication

J'ai mis la barre de recherche dans des lignes qui sont figée.

Quand on fais la recherche et qu'on clique sur le résultat le curseur pointe sur le champ choisi - Nikel

mais si j efface le curseur va bien dans la cellule A1 ou A12 ( mes donnée commencent à A12) mais ca ne scrol pas.

pas sur d'avoir été plus claire cette fois ci :s

Bonjour,

quelle est la question, le problème ? Peux-tu mettre un fichier illustratif ?