TCD Programmation

[tbft]

Bonjour le Forum

Pouvez vous me dire si il est possible de récupérer le noms des colonnes (ou les références) qui ont permis de créer un TCD?

On retrouve ces noms lorsque l'on met en forme le TCD dans la fenêtre Disposition.....

D'avance merci

 

[tototiti2008]

Re : TCD Programmation

Bonjour tbft,

peut-être comme ça :

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

 

[tbft]

Re : TCD Programmation

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

 

[tbft]

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

 

[Pierrot93]

Re : TCD Programmation

Bonjour à tous

@tbft

Pas tout compris, modifie peut être ainsi :

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

bon après midi
@+

 

[Cousinhub]

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

 

[tbft]

Re : TCD Programmation

bonjour Pierrot93
bonjour bhbh

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

 

[Pierrot93]

Re : TCD Programmation

Re, bonsoir bhbh🙂

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

 

[tbft]

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

 

[tbft]

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😱

 

[Pierrot93]

Re : TCD Programmation

Re,

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

 

[tbft]

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.

 

[Pierrot93]

Re : TCD Programmation

Re,

regarde ceci, adapté de l'aide vba :

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

 

[tbft]

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..

 

[Pierrot93]

Re : TCD Programmation

Re,

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