Filtre sur TCD

Bonjour,

Je ne suis peut être pas au bon endroit, mais sans code, j'imagine que la solution n'existe pas...

j'ai un tableau avec une base de données listant des factures par clients etc,

Sur un TCD, je souhaiterai faire évoluer un filtre sur le retard afficher, en fonction du nombre de jours restant sur le mois en cours, en fonction d'un champs calculé comme sur le fichier joint...

Merci Merci Merci

Bonjour,

Une proposition à étudier.

Cdlt.

Private Sub Worksheet_Activate()
Dim pt As PivotTable, pf As PivotField, pi As PivotItem
    Set pt = Me.PivotTables(1)
    Set pf = pt.PivotFields("Retard")
    pt.PivotCache.Refresh
    pf.ClearAllFilters
    For Each pi In pf.PivotItems
        If pi.Name > -1 Or pi.Name <= Me.Cells(2, 2) Then pi.Visible = False
    Next pi
End Sub

Bonjour,

Autre solution à tester,

Cordialement,

Pour la première solution,

le code mouline en boucle sur mon "vrai" fichier de base ( mais j'ai énormément de ligne dans la base de mon tcd)

Pour la seconde solution, la solution est ok, mais idem très longue, compte tenu du nombre de ligne important..

Bonjour

Une solution PowerQuery qui prend de façon auto ce qui est entre aujourd'hui et la fin du mois en cours

Voir si c'est plus rapide...

Re,

Bonjour Chris,

J'ai revu la procédure VBA : A tester !...

Sinon, je te propose aussi une solution Power Query.

A tester aussi.

Copie les données (sans les jours de reatrds) en lieu et place et actualise tout.

Cdlt.

Private Sub Worksheet_Activate()
Dim pt As PivotTable, pf As PivotField, pi As PivotItem
    Set pt = Me.PivotTables(1)
    Set pf = pt.PivotFields("Retard")
    pt.PivotCache.Refresh
    pt.ManualUpdate = True
    pf.ClearAllFilters
    For Each pi In pf.PivotItems
        If pi.Name > -1 Or pi.Name <= Me.Cells(2, 2) Then pi.Visible = False
    Next pi
    pt.ManualUpdate = False
End Sub

Lolo1905 a écrit :

Pour la seconde solution, la solution est ok, mais idem très longue, compte tenu du nombre de ligne important..

salut

combien de lignes ? 100 000 ? 1 000 000 ?

les TCD sont ultra-rapides pour une grosse volumétrie de données

Re,

j'ai testé la solution de Chris, idem ca mouline... longtemps !

et non, j'ai environ 40 000 lignes sur le fichiers !

Concernant la solution avec Power Query, je crois qu'il me faut une formation je ne connais / maitrise pas du tout l'outil !

Re,

Regarde ma solution Power Query, elle différe un peu de celle de Chris.

Sinon, envoie un échantillon de tes vraies données. J'espère que tu travailles avec un tableau (structuré) sans lignes vides.

Cdlt.

Jean-Eric a écrit :

Re,

Regarde ma solution Power Query, elle différe un peu de celle de Chris.

Sinon, envoie un échantillon de tes vraies données. J'espère que tu travailles avec un tableau (structuré) sans lignes vides.

Cdlt.

Exact, je n'avais pas ouvert le bon fichier tout à l'heure !!

Le principe est top, je vais tenter de l'appliqué sur mon fichier,

Et sinon oui, je n'ai aucune ligne vide !

Re,

Et tu travailles bien sur une plage déterminée (pas sur des colonnes entières) ?

Cdlt.

Exactement,