Récupérer valeur filtre TCD

Bonjour

Ma question est dans le titre, est-il possible de récupérer dans une ou plusieurs cellule la/les valeur(s) cochée(s) d'un filtre de rapport (à la place d'avoir "Plusieurs éléments") ? Même question pour les filtres de colonnes où seul "étiquette de colonnes" s'affichent.

Je précise que je travaille avec excel 2007, d'après les recherches que j'ai déjà effectué cela a son importance.

Je vous remercie par avance.

Bonjour et bienvenu(e),

Merci de joindre un fichier exemple à ta demande et de préciser ce que tu veux faire.

Cdlt.

Hop ! J'ai précisé dans le document ci joint en donnant un exemple de l'utilisation que j'en ferais.

Merci

Re,

Un essai à tester dans ton environnemnt.

Cdlt.

Option Explicit

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pi As PivotItem, arr(), k As Long
    On Error Resume Next
    For Each pi In Target.PageFields(1).PivotItems
        If pi.Visible Then
            ReDim Preserve arr(k)
            arr(k) = pi.Name
            k = k + 1
        End If
    Next pi
    [J4] = arr(LBound(arr))
    [J5] = arr(UBound(arr))
    Erase arr()
End Sub

Bonjour,

Je viens de suivre cette question, je sais pas si cela répond à la question de myrapides, mais c'est génial !!

Je récupère cette idée ça peut servir .

Juste une question, on est obligé de cliquer sur actualiser le tcd pour mettre à jour Date debut et Date fin? Vu que le code vba c'est

Worksheet_PivotTableUpdate

Bonne journée à tous !

Bonjour,

Dans l'exemple, la procédure est lancée à chaque modification du champ de page.

Cdlt.

Ok, parce-que chez moi quand je sélectionne un coup Espagne un coup France ça ne change pas les valeurs automatiquement sauf si j'actualise avec clic droit sur le tcd!!

Tout d'abord, merci Jean-Eric pour votre investissement.

Cela marche ....mais pas sur le bon filtre. En effet mon TCD comporte 2 autres filtres de rapport avec du texte. Si je les supprime cela marche à merveille mais quand je les ajoutent cela fonctionne avec le dernier filtre ajouter.

Alors j'ajoute le filtre "Date relative" en dernier mais cela ne fonctionne evidemment pas ^^

Je ne peux pas vous donner mon fichier de base mais en ajoutant 2 autre filtres sur le fichier uploadé je ne rencontre pas ce problème

Comment modifier le code pour qu'il se greffe au filtre "Date relative" ? merci

Re,

Ton fichier en retour modifié.

Cdlt.

Option Explicit

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
Dim pi As PivotItem, arr(), k As Long
    On Error Resume Next
    For Each pi In Target.PivotFields("Date relative").PivotItems
        If pi.Visible Then
            ReDim Preserve arr(k)
            arr(k) = pi.Name
            k = k + 1
        End If
    Next pi
    [J4] = arr(LBound(arr))
    [J5] = arr(UBound(arr))
    Erase arr()
End Sub

Merci beaucoup, sujet résolu