Doubler le filtre

[aubelix]

Bonjour à tous les Amis du Forum. 🙂

De nouveau, je fais appel à vos connaissances pour le problème suivant:
Comment ajouter le critère en bleu à la suite du code :
[Feuil1!A2].AutoFilter Field:=15, Criteria1:="*" & critere & "*"
pour filtre sur les 2 critères.

Sub ExtraireREFMAJ()
    Dim i As Long
    '    Application.ScreenUpdating = False
    On Error Resume Next
    critere = frmCHOIX.ComboBox1.Value
    If critere = "" Then Exit Sub
 [Feuil1!A2].AutoFilter Field:=15, Criteria1:="*" & critere & "*"
 
[COLOR=blue]'Selection.AutoFilter Field:=17, Criteria1:="="[/COLOR]
 
[COLOR=green]'Comment ajouter le critère en bleu à la suite de :  [Feuil1!A2].AutoFilter Field:=15  [/COLOR]
 
Application.DisplayAlerts = False
    On Error Resume Next
    Sheets(critere).Delete
    Sheets.Add after:=Sheets(Sheets.Count)
    ActiveSheet.Name = critere
    Sheets("Feuil1").Range("_FilterDataBase").SpecialCells(xlCellTypeVisible).Copy [A1]
    Cells.EntireColumn.AutoFit
    Sheets("Feuil1").ShowAllData
    Application.ScreenUpdating = True
End Sub

Par avance, Merci pour votre aide.
Cordialement.

 

[kjin]

Re : Doubler le filtre

Bonjour,
qu'est-ce qui bloque ?

Sub ExtraireREFMAJ()
    Dim i As Long
    'Application.ScreenUpdating = False
    On Error Resume Next 'Pourquoi ?
    critere = frmCHOIX.ComboBox1.Value
    If critere = "" Then Exit Sub
    With Sheets("Feuil1").Range("A2")
        .AutoFilter Field:=15, Criteria1:="*" & critere & "*"
        .AutoFilter Field:=17, Criteria1:="="
    End With

End Sub

A+
kjin

 

[aubelix]

Re : Doubler le filtre

Bonjour Kjin. 🙂

Merci pour ta réponse.
Cela fonctionne très bien.

Cordialement.