1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| Dim LastLig As Long
With Worksheets("Pile ILD")
'On supprime l'éventuel filtre automatique
.AutoFilterMode = False
'Ligne de la dernière cellule remplie de la colonne A
LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
With .Range("A1:D" & LastLig)
'Si un item est choisi dans ComboBox1 alors on filtre la colonne B sur cet item
If Me.ComboBoxModele.ListIndex > -1 Then .AutoFilter Field:=1, Criteria1:=Me.ComboBoxModele.Value
'Si un item est choisi dans ComboBox2 alors on filtre la colonne C sur cet item
If Me.ComboBoxTypeILD.ListIndex > -1 Then .AutoFilter Field:=2, Criteria1:=Me.ComboBoxTypeILD.Value
'On copie les ligne résultats du filtre vers A1 de feuille Resultat
End With
'On supprime notre filtre automatique
.AutoFilterMode = False
End With
End Sub |
Partager