Tableau croisé dynamique

[Gusty]

Bonjour à tous !

J'aimerais faire une copie automatique du contenu d'une cellule d'un tableau croisé dynamique pour une cellule de tableau normal.

Je vous remercie d'avance.

Gusty

 

[MichelXld]

Re : Tableau croisé dynamique

bonjour


Si j'ai bien compris:

Cet exemple renvoie la valeur 'Somme ca 2002', pour le champ 'reference' égal à 35.
=LIREDONNEESTABCROISDYNAMIQUE($A$4;"35 'Somme ca 2002'")

La même extraction par macro:

Sub requeteTCD()
    Dim Pvt As PivotTable
 
    'Définit le TCD dans la feuille
    Set Pvt = Worksheets("Résultats").PivotTables("Tableau croisé dynamique1")
 
    'Renvoie la valeur 'Somme ca 2002', pour le champ 'reference' égal à 35
    Range("F10") = Pvt.GetData("'Somme ca 2002' 'reference' '35'")
End Sub

Bonne journée
MichelXld

 

[Gusty]

Re : Tableau croisé dynamique

Merci pour ces solutions

J'ai essayé la 1ere ça marche mais ça m'indique ceci (#N/A) dans les cellules pour les mois à venir.

Pour la 2 e solution, ça m'affiche :

impossible de lire la propriété PivotTables de la classe Worksheet

Merci

 

[chris]

Re : Tableau croisé dynamique

Bonjour
Pour éviter N#A formule :
=SI(ESTNA(LIREDONNEESTABCROISDYNAMIQUE(....));"";LIREDONNEESTABCROISDYNAMIQUE(....))

 

[Gusty]

Re : Tableau croisé dynamique

Bonjour,

Ci-dessous la formule que j'ai rentré, mais elle ne fonctionne toujours
Merci



=SI(ESTNA(LIREDONNEESTABCROISDYNAMIQUE($A$3;"février 2007 somme collage"));""LIREDONNEESTABCROISDYNAMIQUE($A$3;"février 2007 somme collage"))

 

[Dugenou]

Re : Tableau croisé dynamique

Salut,

il te manque un ;

=SI(ESTNA(LIREDONNEESTABCROISDYNAMIQUE($A$3;"févri er 2007 somme collage"));"" ;LIREDONNEESTABCROISDYNAMIQUE($A$3;"fé vrier 2007 somme collage"))

cordialement