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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question