TCD Programmation

tototiti2008

XLDnaute Barbatruc

• 21 Septembre 2010

• #2

Re : TCD Programmation

Bonjour tbft,

peut-être comme ça :

Code:

Sub test()
Dim PF As PivotField
    For Each PF In ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields
        MsgBox PF.Name
    Next PF
End Sub

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 21 Septembre 2010

• #3

Re : TCD Programmation

Trop puissant
c'est ce que je cherche depuis ce matin.
Merci beaucoup tototiti2008

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 22 Septembre 2010

• #4

Re : TCD Programmation

Bonjour

En suivant les conseils de tototiti2008 j'ai pu récupérer les champs de ligne, de colonne , de table...
Mais ou récupérer celle des valeurs??

D'avance merci

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Septembre 2010

• #5

Re : TCD Programmation

Bonjour à tous

@tbft

Pas tout compris, modifie peut être ainsi :

Code:

Dim PF As PivotItem
For Each PF In ActiveSheet.PivotTables(1).PivotFields("NomChampp").PivotItems
    MsgBox PF.Name
Next PF

bon après midi
@+

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 22 Septembre 2010

• #6

Re : TCD Programmation

Bonsoir,

Dans ton TCD, si tu n'as pas l'option "Totaux des lignes" et/ou "Totaux des colonnes", tu les rajoutes...

Puis tu fais un double clic dans la cellule Total Général, en bas à droite....

Bonne soirée

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 22 Septembre 2010

• #7

Re : TCD Programmation

bonjour Pierrot93
bonjour bhbh

Pierrot93 tu avais bien compris mais cela ne marche pas... sniff.....

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Septembre 2010

• #8

Re : TCD Programmation

Re, bonsoir bhbh🙂

tu as adapté l'index du tcd et le nom du champ concerné...

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 22 Septembre 2010

• #9

Re : TCD Programmation

Re

en faite je souhaite pourvoir récupérer la configuration complète d'un TCD.
Avec l'aide de tototiti2008, j'ai pratiquement pu tout récupérer sauf le paramétrage des données (ainsi nommé dans la fenêtre de configuration : "Disposition")

Si quelqu'un à une idée, je suis preneur.

D'avance merci

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 22 Septembre 2010

• #10

Re : TCD Programmation

Oups

Désolé Pierrot93, je n'avais pas vue ton message je frappe pas assez vite
C'est juste le "champs" que je cherche
enfin il me semble😱

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Septembre 2010

• #11

Re : TCD Programmation

Re,

comprends pas trop, le code de toto te donne tous les champs (ligne, colonne page et données)...

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 22 Septembre 2010

• #12

Re : TCD Programmation

Re Pierrot

je suis d'accord avec toi.
mais comment faire la distinction entre les champs utilisés en "données" et les autres.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Septembre 2010

• #13

Re : TCD Programmation

Re,

regarde ceci, adapté de l'aide vba :

Code:

Dim pf As PivotField
For Each pf In ActiveSheet.PivotTables(1).PivotFields
Select Case pf.Orientation
    Case xlHidden
        MsgBox "Hidden field"
    Case xlRowField
        MsgBox "Row field"
    Case xlColumnField
        MsgBox "Column field"
    Case xlPageField
        MsgBox "Page field"
    Case xlDataField
        MsgBox "Data field"
End Select
Next pf

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 22 Septembre 2010

• #14

Re : TCD Programmation

Je viens d'essayer mais la propriété orientation est égale à 0 pour les champs utilisés en temps que "Données"....

Snif..

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Septembre 2010

• #15

Re : TCD Programmation

Re,

oui comprends pas... même constat...

 

Vote positif 0 Vote négatif