Filtre avancé avec des choix multiple à l'aide des CheckBox
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:
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:
1 2 3 4
| Private Sub search()
sendFormValuesToExcel
Macrotrigroupe
End Sub |
Code:
1 2 3
| Private Sub OptionS1_Change()
search
End Sub |
Code:
1 2 3
| Private Sub Cmdfiltre_Click()
search
End Sub |
Code:
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.