Filtre automatique TCD selon date du jour

Bonjour les experts

Je sèche depuis un moment pour adapter ce code VBA pour un TCD:

Sub Data_open()

Sheets("DATA_OPEN_ORDERS").Select

With ActiveSheet.Range("A3").CurrentRegion

.AutoFilter

.AutoFilter 4, "<=" & CLng(DateAdd("m", -3, Date))

End With

End Sub

Cette méthode pour un filtre automatique dans une table de donnée fonctionne très bien mais j'aimerais l'adapter pour un TCD

Je voudrais avoir les données plus anciennes de 3 mois à partir de la date du jour. Exemple: aujourd'hui 31.07.2019 filtre sur les dates plus anciennes que 30.04.2019

Merci pour votre aide

15test.xlsm (93.19 Ko)

Bonjour,

Tu peux créer une colonne supplémentaire dans ta base pour indiquer <ou > à 3 mois, il ne te restera plus qu'a ajouter filtre ou segment au tcd,

Cordialement,

Bonjour,

Ci-joint un exemple possible,

Cordialement,

56copie-de-test.xlsm (88.83 Ko)

Bonjour,

Une proposition à étudier.

Cdlt.

50test-1.xlsm (97.27 Ko)

Merci beaucoup massari59264 et Jean-Eric. Je garde les deux...

Bonne soirée

Bonjour,

Merci de ce retour.

Cdlt.

Bonjour

Un autre exemple en retour avec un bouton d'actualisation et une cellule de référence pour la date - 3 mois.

( Voir Macro 2 qui peut être lancé à l'ouverture du fichier aussi. ? )

34test-retour.xlsm (90.22 Ko)
Rechercher des sujets similaires à "filtre automatique tcd date jour"