Tableau croisé dynamique

[Egruat]

Bonjour,

J'ai un tableau croisé dynamique (TCD) sur la feuil "feuil1".
J'ai un tableau sur la feuille "Feuil2" et j'ai indiqué des valeurs en absisse (x) et en ordonnée (y).
Je cherche à prélever quelques valeurs du TCD et à compléter mon petit tableau sur la feuille "feuil2", selon les valeurs de l'absisse (x) et de l'ordonnée (y).

Comment faire ??

Merci !

 

[bond]

Re : Tableau croisé dynamique

Pas simple de comprendre sans un bout de fichier...
Est ce que la fonction INDEX() serait un bout de solution à ton pb ?

 

[Egruat]

Re : Tableau croisé dynamique

Voici un fichier joint. Il faut considérer la table de la feuille "Feuil1" comme un TCD.

Je ne connais pas la fonction INDEX...

 

[JCGL]

Re : Tableau croisé dynamique

Bonjour à tous,

En B12 et à droite et vers le bas :

=SOMMEPROD((Feuil1!$B$7:$B$14=$A12)*(Feuil1!$C$6:$H$6=B$11)*Feuil1!$C$7:$H$14)

A+ à tous

 

[Egruat]

Re : Tableau croisé dynamique

Merci. Mais en fait le problème est plus complexe car pour les besoins d'une bonne compréhension, j'ai mis des valeurs en X et Y qui se suivant. En réalité, les X et Y ne se suivent pas. Il me faut donc aller chercher les résultats cellule par cellule.
Voici ce que j'ai trouvé:

Range("B20").Select
ActiveCell.FormulaR1C1 = "=GETPIVOTDATA(""""&Feuil2'!R19C,Feuil1!R4C1,""Prod"",'Feuil2'!RC1)"
Range("C7").Select
Selection.Copy
Range("C7:H14").Select
ActiveSheet.Paste
Range("C15").Select
Application.CutCopyMode = False

Malheureusement, les résultats sont égaux à 0. Il me faut rentrer dans chaque case pour activer la formule et afficher le résultat.

Sauriez-vous comment faire pour activer les formules et ainsi avoir les bonnes valeurs?

Cordialement.

 

[JCGL]

Re : Tableau croisé dynamique

Bonjour à tous,

Si tu déposais ton fichier, il serait plus facile de tenter de t'aider...

Le code pour la formule proposée :

Sub Test()
    Range("B12:D14").FormulaR1C1 = _
        "=SUMPRODUCT((Feuil1!R7C2:R14C2=RC1)*(Feuil1!R6C3:R6C8=R11C)*Feuil1!R7C3:R14C8)"
    Range("B12").Select
End Sub

A+ à tous

 

[Egruat]

Re : Tableau croisé dynamique

En fait je voudrais appliquer la formule "ActiveCell.Formula" pour une plage de cellule afin d'activer le calcul de la formule.

Cordialement.

 

[JCGL]

Re : Tableau croisé dynamique

Bonjour à tous,

Re :

Si tu déposais ton fichier, il serait plus facile de tenter de t'aider...

A+ à tous

 

[JCGL]

Re : Tableau croisé dynamique

Bonjour à tous,

Re :

Si tu déposais ton fichier, il serait plus facile de tenter de t'aider...

A+ à tous