[Déplace]VBA EXCEL : macro pour filtrer avec plusieurs choix:

Option Explicit
Public a1 As Integer
Public a2 As Integer
Public b1 As Integer
Public b2 As Integer
Public b3 As Integer
Public c1 As Integer
Public c2 As Integer
Public d1 As Integer
Public d2 As Integer
Public d3 As Integer
Public e1 As Integer
Public e2 As Integer

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        a1 = 22
        a2 = 47
    Else
        a1 = 0
        a2 = 0
    End If
                   
End Sub

Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        b1 = 143
        b2 = 163
        b3 = 301
    Else
        b1 = 0
        b2 = 0
        b3 = 0
    End If
End Sub

Private Sub CheckBox3_Click()
    If CheckBox3.Value = True Then
        c1 = 401
        c2 = 402
    Else
        c1 = 0
        c2 = 0
    End If
End Sub

Private Sub CheckBox4_Click()
    If CheckBox4.Value = True Then
        d1 = 407
        d2 = 426
        d3 = 462
    Else
        d1 = 0
        d2 = 0
        d3 = 0
    End If
End Sub

Private Sub CheckBox5_Click()
    If CheckBox5.Value = True Then
        e1 = 223
        e2 = 314
    Else
        e1 = 0
        e2 = 0
    End If
End Sub

Sub CommandButtonok_Click()

    'affichage des pîèces souhaité
        ActiveSheet.Range("$A$5:$P$1043").AutoFilter Field:=1, Criteria1:=Array(a1, a2, b1, b2, b3, c1, c2, d1, d2, d3, e1, e2)
        
    Unload UserForm1
    
End Sub

Option Explicit
Public a1 As String
Public a2 As String
Public b1 As String
Public b2 As String
Public c1 As String
Public c2 As String
Public c3 As String
Public c4 As String
Public d1 As String
Public d2 As String
Public e1 As String
Public e2 As String
Public f1 As String
Public f2 As String
Public f3 As String
Public g1 As String
Public g2 As String
Public h1 As String
Public i1 As String
Public i2 As String
Public i3 As String
Public i4 As String
Public j1 As String
Public j2 As String
Public j3 As String

Sub CheckBoxbielle_Click()

        
        If CheckBoxbielle.Value = True Then
            f1 = "4495"
            f2 = "2370"
            f3 = "4781"
        Else
            f1 = 0
            f2 = 0
            f3 = 0
        End If
End Sub

Sub CheckBoxcremcde_Click()

        
        If CheckBoxcremcde.Value = True Then
            g1 = "5001"
            g2 = "3158"
        Else
            g1 = 0
            g2 = 0
        End If
End Sub

Sub CheckBoxcremcomb_Click()

        If CheckBoxcremcomb.Value = True Then
            a1 = "3067"
            a2 = "4558"
        Else
            a1 = 0
            a2 = 0
        End If
    
End Sub

Sub CheckBoxpistcde_Click()

    
        If CheckBoxpistcde.Value = True Then
            h1 = "4521"
        Else
            h1 = 0
        End If
End Sub

Sub CheckBoxpistcomb_Click()
        
        If CheckBoxpistcomb.Value = True Then
            b1 = "5289"
            b2 = "4514"
        Else
            b1 = 0
            b2 = 0
        End If

End Sub

Sub CheckBoxplatine_Click()
        
        If CheckBoxplatine.Value = True Then
            c1 = "2333"
            c2 = "5082"
            c3 = "1253"
            c4 = "4961"
        Else
            c1 = 0
            c2 = 0
            c3 = 0
            c4 = 0
        End If
End Sub

Sub CheckBoxrotule_Click()

        If CheckBoxrotule.Value = True Then
            j1 = "1122"
            j2 = "4698"
            j3 = "4813"
        Else
            j1 = 0
            j2 = 0
            j3 = 0
        End If
            
End Sub

Sub CheckBoxroue_Click()
        
        If CheckBoxroue.Value = True Then
            e1 = "4565"
            e2 = "4586"
        Else
            e1 = 0
            e2 = 0
        End If
End Sub

Sub CheckBoxrouleau_Click()
    
        If CheckBoxrouleau.Value = True Then
            d1 = "4970"
            d2 = "2231"
        Else
            d1 = 0
            d2 = 0
        End If
End Sub



Sub CheckBoxvp_Click()

        
        If CheckBoxvp.Value = True Then
            i1 = "323013"
            i2 = "323019"
            i3 = "320004"
            i4 = "323017"
        Else
            i1 = 0
            i2 = 0
            i3 = 0
            i4 = 0
        End If
End Sub

Sub CommandButtonok_Click()

    'affichage des pîèces souhaité
        ActiveSheet.Range("$A$5:$P$1043").AutoFilter Field:=1, Criteria1:=Array(a1, a2, b1, b2, c1, c2, c3, c4, d1, d2, _
        e1, e2, f1, f2, f3, g1, g2, h1, i1, i2, i3, i4, j1, j2, j3), Operator:=xlFilterValues
        
        
  
    Unload UserForm2
    
    Range("D5").Select
    ActiveWorkbook.Worksheets("synthese des stocks").AutoFilter.Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets("synthese des stocks").AutoFilter.Sort.SortFields. _
        Add Key:=Range("D5:D1043"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("synthese des stocks").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    

End Sub