Filtre avancé par année

Bonjour,

J'aimerais pouvoir, en filtre avancé, extraire les données (voir fichier joint) par année "X" mentionnée en case B23, et afficher les lignes complètes à partir de la ligne B27.

Exemple : si je note dans la case B23 l'année 2016, à partir de la case B27, les actions 1-4-910-11 s'affichent l'une sous l'autre avec le reste de la ligne qui leur incombe.

Pourriez-vous m'aider, s'il vous plaît ?

Merci par avance

Dany

Bonjour

Bonjour,

à tester,

Sub test()
Application.ScreenUpdating = False
Range("B27:E" & Cells(Rows.Count, 2).End(xlUp).Row + 1).ClearContents
Range("B3:E18").AutoFilter

StartDate = DateSerial([B23], 1, 1)
EndDate = DateSerial([B23], 12, 31)

Range("$B$3:$E$3").AutoFilter Field:=2, Criteria1:=">=" & StartDate, Operator:=xlAnd, Criteria2:="<=" & EndDate
Range("_FilterDatabase").SpecialCells(xlCellTypeVisible).Copy Range("B26")
Range("$B$3:$E$3").AutoFilter
Application.ScreenUpdating = True
End Sub

Bonjour et Merci beaucoup à vous deux,

ça marche nickel...

Bonne journée

Dany