moteur de recherche

[judoka0209]

bonjour, je voudrais que mon moteur de recherche fasse aussi la colonne B et me mette la page dans la recherche
ex: maison,P2
merci

 

[BOISGONTIER]

Bonjour,

Private Sub TextBox1_Change()   
    Application.ScreenUpdating = False   
    Range("A2:A24").Interior.ColorIndex = 2
    ListBox1.Clear   
    If TextBox1 <> "" Then
        n = 0
        For ligne = 2 To 24
            If Cells(ligne, 1) Like "*" & TextBox1 & "*" Then
                Cells(ligne, 1).Interior.ColorIndex = 43
                ListBox1.AddItem Cells(ligne, 1)
                ListBox1.List(n, 1) = Cells(ligne, 2)
                n = n + 1
            End If
        Next
    End If   
End Sub

jb

 

[judoka0209]

merci super j'ai réussi à l'adapter