Bonjour, voila j'essaye de filtrer ma ligne selon deux critères :
comboboxModele et ComboboxTypeILD, le filtrage fonctionne mais le probleme je veux récupérer ensuite la ligne filtré dans mes combobox.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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