format TCD Résolu/Fermé

Question

Bonjour, 

voici le lien de mon fichier intégrant ma macro
http://cjoint.com/?3AkvxjTpli8
et voici le lien des TCD que je cherche à obtenir, en vain
http://cjoint.com/?3AkvDPiNZcV
je n'arrive pas à conserver la colonne avec le N° document comme dans la capture d'écran quand je construis le TCD manuellement.
auriez vous une explication ? j'ai pourtant utilisé l'enregistreur de macro

Configuration: Windows 7 / Firefox 17.0

eriiic · Answer

Bonjour,     

C'est cette ligne qui fait ça :     
ActiveSheet.PivotTables("Tableau1").AddDataField ActiveSheet.PivotTables( _     
                                                     "Tableau1").PivotFields("N° document"), "Somme de N° document", xlSum     
      
tu te rappelles des manip effectuées pour le champ data ?     

eric     

J'ai testé avec Late to advise et xlCount qui me paraissait plus en cohérence avec ton image mais ce n'est pas encore ça...   

edit : j'ai trouvé. 
Déposer le champ de données fait perdre le champ de colonne. 
Inverse et c'est bon : 
'mise en place des champs 
With ActiveSheet.PivotTables("Tableau1").PivotFields("N° document") 
    .Orientation = xlRowField 
    .Position = 1 
End With 
ActiveSheet.PivotTables("Tableau1").AddDataField ActiveSheet.PivotTables( _ 
    "Tableau1").PivotFields("Late to advise"), "Nombre de Late to advise", xlCount 
With ActiveSheet.PivotTables("Tableau1").PivotFields("Late to advise") 
    .Orientation = xlColumnField 
    .Position = 1 
End With
J'ai mis Late to advise et xlCount que ça ressemble un peu plus à ton exemple mais tu y mets ce que tu veux 
eric 
      
Jamais tu ne répondras à un mp non sollicité...     
Bon, ça c'est fait.

Format TCD

1 réponse

Discussions similaires