Filtre automatique

Bonjour à tous,

Je suis débutante en vba et j'aurais vraiment besoin d'un coup de pouce.

Mon TCD permet de calculer le chiffre d'affaire cumulé (sur les mois) d'une entreprise. J'utilise donc un filtre qui filtre sur le mois. Actuellement, les mois sélectionnés sont 1, 2, 3 et 4. A la fin de ce mois, il faut cocher le mois 5 aussi (A la fin du mois prochain faut sélectionner le mois 6 ainsi de suite). J'ai besoin donc d'un code qui me permet d'automatiser cette action.

PS: je peux pas utiliser un segment car cette partie je dois la mettre au milieu de ma macro.

Merci d'avance

Bonjour,

Voici un exemple,

Bonjour,

Une autre proposition à étudier.

Un complément d'informations de ta part serait bienvenu.

A te relire.

Cdlt

Option Explicit

Dim pf As PivotField
'Dim rng As Range

Public Sub Filter_data()
Dim dt As Date
    Set pf = ActiveSheet.PivotTables(1).PivotFields("Date")
    dt = DateSerial(Year(VBA.Date), Month(VBA.Date), 0)
    With pf
        .ClearAllFilters
        .PivotFilters.Add2 Type:=xlBeforeOrEqualTo, Value1:=Format(dt, "d/m/yyyy")
        'Set rng = .DataRange
    End With
    'rng.Cells(1).Group periods:=Array(False, False, False, False, True, False, False)
End Sub

Public Sub Clear_filter()
    Set pf = ActiveSheet.PivotTables(1).PivotFields("Date")
    With pf
        .ClearAllFilters
        'Set rng = .DataRange
        'On Error Resume Next
        'rng.Ungroup
        'On Error GoTo 0
    End With
End Sub

Bonjour à tous

Pourquoi ne pas rester sur le fil d'origine... https://forum.excel-pratique.com/viewtopic.php?f=2&t=124974&p=765753#p765753

A noter que rien n'interdit de manipuler un segment par VBA...

Merci beaucoup, je vais lire vos propositions.

Je vous remercie

J'ai mis en pièce jointe un exemple de mon TCD.

J'ai du mal à adapter ce que vous m'avez proposer à mon tableau vu que la date c'est pas en format j/m/aa

Merci beaucoup

Bonjour,

revoici ton fichier avec la macro adapter au champ Mois

Bonjour à tous

Dans la mesure ou année et mois sont séparés, filtrer sur le mois mélange les données des années

Il est donc nécessaire de préfiltrer l'année...

Bonjour,

Une autre proposition pour le cumul des PV à m-1.

Cdlt.

bonjour,

Merci INFINIMENT à vous tous, le problème est résolu.