XL 2016 Code vba permettant de faire une recherche soit dans la colonne A ou B

telemarrk à dit:

Bonjour Oneida,

Merci pour ton aide, il y a juste un petit souci.

Si je tape : ali* pour rechercher alimentation cela fonctionne
mais si je tape : 606* pour afficher toutes les lignes commencant par 606 cela ne fonctionne pas

Cliquez pour agrandir...

scraper à dit:

Bonjour Telemarrk, Oneida

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Filter As String, Col As Long, lastRow As Long
  
    If Not Intersect(Target, ActiveSheet.Range("B5")) Is Nothing Then
        Application.ScreenUpdating = False
        If Me.FilterMode Then Me.ShowAllData
        Filter = ActiveSheet.Range("B5")
        lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row
        If Filter <> "" Then
            If IsNumeric(Filter) Then
                Col = 1
                Filter = CStr(Filter)
            Else
                Col = 2
            End If
            With Range("A9:D" & CStr(lastRow)).Select
                ActiveSheet.Range("$A$8:$D$" & CStr(lastRow)).AutoFilter Field:=Col, Criteria1:="*" & Filter & "*"
            End With
        End If
         MsgBox "Nb:" & ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1
    End If
    Application.ScreenUpdating = True
End Sub

Cliquez pour agrandir...