كود البحث بحرف من كلمة

Private Sub CHERCHE_Change()

Application.ScreenUpdating = False

On Error Resume Next

ListeAffaire.ColumnCount = 5

ListeAffaire.ColumnWidths = "40;80;80;100;80"



If CHERCHE.Value = "" Then ListeAffaire.Clear: Exit Sub



    k = 0

       

        lr = Cells(Rows.Count, 4).End(xlUp).Row

        For Each c In Range("d3:d" & lr)

            b = InStr(c, CHERCHE)

            If b > 0 Then

                ListeAffaire.AddItem

                ListeAffaire.List(k, 0) = Cells(c.Row, 1).Value

                ListeAffaire.List(k, 1) = Cells(c.Row, 2).Value

                ListeAffaire.List(k, 2) = Cells(c.Row, 3).Value

                ListeAffaire.List(k, 3) = Cells(c.Row, 4).Value

                ListeAffaire.List(k, 4) = Cells(c.Row, 5).Value

                

                k = k + 1

            End If

        Next c

Application.ScreenUpdating = True

End Sub

b = InStr(c, CHERCHE)

b = InStr(LCase(c), LCase(CHERCHE))