Petit formulaire de recherche acec LIKE

Bonjour

J'ai un code qui marche très bien mais j'ai un petit problème pour l'adapter ...

Il me permet de faire une recherche dans une colonne et dès qu'il trouve une partie du mot, il l'affiche dans une listBox et colore les cellules trouvées...

C'est exactement ce qu'il me faut ... mais je voudrait qu'il étende la recherche sur plusieurs colones tout en faisant la même chose (affichage ListBox et coloration cellule) de plus, si ce n'est pas trop demander ... j'aurais voulu que la recherche ne prenne pas en compte les majuscules ( la recherche doit marcher indifférement pour Roy et roy par exemple)

Merci de votre aide

Private Sub TextBox1_Change()

    Application.ScreenUpdating = False

    Range("B2:B506").Interior.ColorIndex = 2
    ListBox1.Clear

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

End Sub

Bonjour Neilah le forum

a+

Papou

Option Compare Text 'pour les majuscules

Private Sub TextBox1_Change()
    Application.ScreenUpdating = False
    Range("B2:D506").Interior.ColorIndex = 2    ' là tu changes j'ai mis D mais tu peux mettre ce que tu veux
    ListBox1.Clear
    If TextBox1 <> "" Then
        For i = 2 To 4    ' là tu changes c'est pour faire de la colonne 2 à la colonne 4 de B à D
            For ligne = 2 To 506
                If Cells(ligne, i) Like "*" & TextBox1 & "*" Then
                    Cells(ligne, i).Interior.ColorIndex = 43
                    ListBox1.AddItem Cells(ligne, i)
                End If
            Next ligne
        Next i
    End If
End Sub

Bonjour,

Recherche intuitive multi-colonnes multi-mots

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormRechercheModifAjoutSupListObject.xls

Ceuzin

Merci Beaucoup, c'est exactement ce que j'attendais.

Cordialement

Neilah