Plusieurs TCD sur une même feuille

Plusieurs TCD sur une même feuille - VB/VBA/VBS - Programmation

Marsh Posté le 31-07-2012 à 15:59:44    

Bonjour tout le monde ,  
 
Je viens vers vous pour résoudre un problème qui commence à dater .  
 
Lorsque j'essaie de créer plusieurs TCD sur la même feuille , les TCD se fusionnent pour en créer un seul.  
Pourtant je pense avoir bien changer la destination de la création du TCD.  
 
Je vous met le code à disposition  
 
 

Code :
  1. Sub TCD1()
  4. Dim lastrow
  5. lastrow = Range("A2" ).End(xlDown).Row
  6. '==============================================================================
  7. 'Création TCD #1 (Nombre d'actions / tech)
  8. ActiveSheet.PivotTableWizard _
  9. SourceType:=xlDatabase, _
  10. SourceData:="'Tableau Récapitulatif'!R1C1:R" & lastrow & "C14", _
  11. TableDestination:="'Calculs occupation par TECH'!R1C1", _
  12. TableName:="TCD1"
  14.   ActiveSheet.PivotTables("TCD1" ).AddFields
  15.     With ActiveSheet.PivotTables("TCD1" ).PivotFields( _
  16.         "ID intervenant" )
  17.         .Orientation = xlRowField
  18.         .Position = 1
  19.     End With
  20.     ActiveSheet.PivotTables("TCD1" ).AddDataField ActiveSheet. _
  21.         PivotTables("TCD1" ).PivotFields("Tps passée" ), _
  22.         "Nbre d'actions / tech", xlCount
  24. End Sub
  25. Sub TCD2()
  27. Dim lastrow
  28. lastrow = Range("A2" ).End(xlDown).Row
  30. ' Création TCD #2(Temps passé / tech)
  31. ActiveSheet.PivotTableWizard _
  32. SourceType:=xlDatabase, _
  33. SourceData:="'Tableau Récapitulatif'!R1C1:R" & lastrow & "C14", _
  34. TableDestination:="'Calculs occupation par TECH'!R10C10", _
  35. TableName:="TCD2"
  37. ActiveSheet.PivotTables("TCD2" ).AddFields
  38. With ActiveSheet.PivotTables("TCD2" ).PivotFields( _
  39.         "ID intervenant" )
  40.         .Orientation = xlRowField
  41.         .Position = 1
  42.     End With
  43.     ActiveSheet.PivotTables("TCD2" ).AddDataField ActiveSheet. _
  44.         PivotTables("TCD2" ).PivotFields("Tps passée" ), _
  45.         "Temps passé / tech", xlCount
  46.     With ActiveSheet.PivotTables("TCD2" ).PivotFields( _
  47.         "Temps passé / tech" )
  48.         .Caption = "Temps passé / tech"
  49.         .Function = xlSum
  50.         .NumberFormat = "[h]:mm:ss"
  51.     End With
  53. End Sub
  54. Sub Miseenforme()
  56. .................
  59. 'Appel des procédures TCD
  60. Call TCD1
  62. Call TCD2
  64.    
  65. End Sub


 
Merci d'avance

Reply

Marsh Posté le 31-07-2012 à 15:59:44   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed