Champ_ recherche.xls

Bonjour,

j'ai trouver super votre lien pour télécharger champ_recherche.xls . petite page super pratique .

mais je souhaiterais rajouter des ligne supplémentaires sur la meme page , mais je n'arrive pas a en rajouter .

merci d'avance de votre aide

Bonjour,

Un essai ... quelque soit le nombre de lignes ...

'Source : http://www.blog-excel.com/creer-un-champ-de-recherche-vba
Option Compare Text

Private Sub TextBox1_Change()
Dim Dlig As Integer

    Application.ScreenUpdating = False
    Dlig = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A2:A" & Dlig).Interior.ColorIndex = 2
    ListBox1.Clear

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

ric