extraire des données d'un tableau croisé dynamique

[philmaure]

bonjour à tous.

J'ai un tableau croisé dynamique.
A partir d'un autre tableau je souhaite extraire des données du tableau selon un critère. Dans mon exemple selon le critère date.
L'exemple joint est simplifié cela peux paraitre inutile mais si cela fonctionne cela me sera utile dans des cas plus complexes.

Ma macro bloque et je ne parviens pas à trouver pourquoi.

De plus comment lancer la macro dès que je sélectionne la nouvelle date en E13.
Merci pour vos réponses.
Cordialement
Philippe

 

[philmaure]

Re : extraire des données d'un tableau croisé dynamique

je viens de trouver une partie du problème il me faut rentrer dans le tableau du haut les cellules du TCD
je remet le classeur mis à jour
Cdlt

 

[JCGL]

Re : extraire des données d'un tableau croisé dynamique

Bonjour à tous,

Peux-tu essayer dans le code de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$E$13" Then
     ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("date"). _
        CurrentPage = Range("E13").Text
        End If
    End Sub

A+ à tous

 

[philmaure]

Re : extraire des données d'un tableau croisé dynamique

Bonsoir et un grand merci ca fontionne comme je le souhaitais.
Cordialement
Philippe

 

[JCGL]

Re : extraire des données d'un tableau croisé dynamique

Bonjour à tous,

Tu peux supprimer les noms définis a et b ainsi que la Sub ab()

A+ à tous

 

[philmaure]

Re : extraire des données d'un tableau croisé dynamique

ok encore merci
@+