A Pure MonsteR | 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 :
- Sub TCD1()
- Dim lastrow
- lastrow = Range("A2" ).End(xlDown).Row
- '==============================================================================
- 'Création TCD #1 (Nombre d'actions / tech)
- ActiveSheet.PivotTableWizard _
- SourceType:=xlDatabase, _
- SourceData:="'Tableau Récapitulatif'!R1C1:R" & lastrow & "C14", _
- TableDestination:="'Calculs occupation par TECH'!R1C1", _
- TableName:="TCD1"
- ActiveSheet.PivotTables("TCD1" ).AddFields
- With ActiveSheet.PivotTables("TCD1" ).PivotFields( _
- "ID intervenant" )
- .Orientation = xlRowField
- .Position = 1
- End With
- ActiveSheet.PivotTables("TCD1" ).AddDataField ActiveSheet. _
- PivotTables("TCD1" ).PivotFields("Tps passée" ), _
- "Nbre d'actions / tech", xlCount
- End Sub
- Sub TCD2()
- Dim lastrow
- lastrow = Range("A2" ).End(xlDown).Row
- ' Création TCD #2(Temps passé / tech)
- ActiveSheet.PivotTableWizard _
- SourceType:=xlDatabase, _
- SourceData:="'Tableau Récapitulatif'!R1C1:R" & lastrow & "C14", _
- TableDestination:="'Calculs occupation par TECH'!R10C10", _
- TableName:="TCD2"
- ActiveSheet.PivotTables("TCD2" ).AddFields
- With ActiveSheet.PivotTables("TCD2" ).PivotFields( _
- "ID intervenant" )
- .Orientation = xlRowField
- .Position = 1
- End With
- ActiveSheet.PivotTables("TCD2" ).AddDataField ActiveSheet. _
- PivotTables("TCD2" ).PivotFields("Tps passée" ), _
- "Temps passé / tech", xlCount
- With ActiveSheet.PivotTables("TCD2" ).PivotFields( _
- "Temps passé / tech" )
- .Caption = "Temps passé / tech"
- .Function = xlSum
- .NumberFormat = "[h]:mm:ss"
- End With
- End Sub
- Sub Miseenforme()
- .................
- 'Appel des procédures TCD
- Call TCD1
- Call TCD2
-
- End Sub
|
Merci d'avance |
