XL 2016 Date en VBA

[juline54]

Bonjour à tous,

Je souhaite automatiser mes date sur plusieurs onglets en même temps. Pour se faire j'ai crée un filtre chronologie mais je souhaite entrer ma période à la main. Voici ce que j'ai fait actuellement. Je ne peux pas joindre mon fichier car trop lourd.

Sub Date2()
'
' Date2 Macro
'
' Touche de raccourci du clavier: Ctrl+d
'
ActiveWorkbook.SlicerCaches("ChronologieNative_Date").TimelineState. _
SetFilterDateRange "01/02/2019", "29/02/2020"
End Sub

 

[Staple1600]

Bonsoir le fil

Test Ok sur mon PC

Sub test_OK()
Debut = InputBox("Date début?", "Début", CDate("1/" & Month(Date)))
Fin = InputBox("Date Fin?", "Début", DateAdd("d", -1, DateAdd("m", 1, Debut)))
ActiveWorkbook.SlicerCaches("ChronologieNative_Date").TimelineState.SetFilterDateRange Debut, Fin
End Sub