Bonjour toutes et tous
@Tonyct
pour la liste déroulante en g3 (année) pour filtrer colonne A
exemple code sur un de tes onglets de ton classeur
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Long, Critère As String
If Target.Address = "$F$3" Then
lig = ActiveSheet.Cells(Rows.Count, 10).End(xlUp).Row
Critère = Target.Value
ActiveSheet.Range("$a$10:$a$" & lig).AutoFilter Field:=1, Criteria1:=Critère
End If
End Sub
Note : tes boutons de commandes sur ta feuille tu devrais les placer plus haut car, lorsque tu effectueras le filtrage par année, certains boutons de ta feuille seront non vus.
crdlt,
André
crdlt,
André