Bonjour,

J'ai un problème avec le filtre à choix multiple. Dans un Userform j'ai 6 CheckBox nommées (CheckBa,CheckBb,CheckBc,CheckBd,Checke,CheckBf)et j aimerai que lorsque je coche 2 checkBox voir plus, que le filte de ma base de données puise être appliqué.

je parviens pour l'instant à faire le filtre à l'aide d'une seule checkbox coché.
voici mon code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub sendFormValuesToExcel()
    If (OptionS1) Then
        Range("J2").FormulaR1C1 = OptionS1.Caption
        If (CheckBa) Then
            Range("K2").FormulaR1C1 = "a"
        End If
    ElseIf (OptionS2) Then
         Range("J2").FormulaR1C1 = OptionS2.Caption
         'Range("K2").FormulaR1C1 = "a"
         'Range("P2").FormulaR1C1 = "b"
         'Range("P2").FormulaR1C1 = CheckBb.Caption
    End If
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Private Sub search()
    sendFormValuesToExcel
    Macrotrigroupe
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub OptionS1_Change()
    search
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Private Sub Cmdfiltre_Click()
    search
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Macrotrigroupe()
'
' Macrotrigroupe Macro
'
 
'
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Range("Tableau14[#All]").AdvancedFilter Action:=xlFilterCopy, CriteriaRange _
        :=Range("I1:P2"), CopyToRange:=Range("I6:O6"), Unique:=False
End Sub

merci d'avance pour l'aide.