TCD à plage variable

TCD à plage variable - VB/VBA/VBS - Programmation

Marsh Posté le 22-05-2012 à 14:02:41    

Bonjour tout le monde ,  
Dans le cadre de mon entreprise , je suis chargé de développer une macro ayant pour but de réaliser un tableau de bord  automatiquement.  
Pour information le tableau de bord est basé sur une feuille de données brutes à lignes variables et colonnes fixes.Et une dizaine de TCD est à créer  
 
Ne m'y connaissant pas trop en VBA . Je me suis débrouiller comme j'ai pu jusqu'à maintenant. J'ai fait beaucoup de recherches avant de poster ici , j'ai vu la plupart des sujets concernant le même problème mais cela n'a pas résolu mon problème.  
 

Code :
  1. Sub Rapport()
  4. ' Détermination de la limite du tableau
  6. Dim limite As Integer
  8. limite = ([B2].End(xlDown).Row)
  9. Range("A1:A" & limite).Select
  11. Application.DisplayAlerts = False
  13. 'Mise en forme première page
  14. Dim CL As Range
  15. Application.ScreenUpdating = False
  17.     Range("A1" ).CurrentRegion.Select
  18.     Selection.Borders(xlDiagonalDown).LineStyle = xlNone
  19.     Selection.Borders(xlDiagonalUp).LineStyle = xlNone
  20.     With Selection.Borders(xlEdgeLeft)
  21.         .LineStyle = xlContinuous
  22.         .Weight = xlMedium
  23.         .ColorIndex = xlAutomatic
  24.     End With
  25.     With Selection.Borders(xlEdgeTop)
  26.         .LineStyle = xlContinuous
  27.         .Weight = xlMedium
  28.         .ColorIndex = xlAutomatic
  29.     End With
  30.     With Selection.Borders(xlEdgeBottom)
  31.         .LineStyle = xlContinuous
  32.         .Weight = xlMedium
  33.         .ColorIndex = xlAutomatic
  34.     End With
  35.     With Selection.Borders(xlEdgeRight)
  36.         .LineStyle = xlContinuous
  37.         .Weight = xlMedium
  38.         .ColorIndex = xlAutomatic
  39.     End With
  40.     With Selection.Borders(xlInsideVertical)
  41.         .LineStyle = xlContinuous
  42.         .Weight = xlThin
  43.         .ColorIndex = xlAutomatic
  44.     End With
  45.     With Selection.Borders(xlInsideHorizontal)
  46.         .LineStyle = xlContinuous
  47.         .Weight = xlThin
  48.         .ColorIndex = xlAutomatic
  49.     End With
  50.     Range("A1" ).Select
  51.     Range(Selection, Selection.End(xlToRight)).Select
  52.     Selection.Font.Bold = True
  53.     With Selection
  54.         .HorizontalAlignment = xlCenter
  55.         .VerticalAlignment = xlBottom
  56.         .WrapText = False
  57.         .Orientation = 0
  58.         .AddIndent = False
  59.         .IndentLevel = 0
  60.         .ShrinkToFit = False
  61.         .ReadingOrder = xlContext
  62.         .MergeCells = False
  63.     End With
  64.     With Selection.Interior
  65.         .ColorIndex = 4
  66.         .Pattern = xlSolid
  67.         .PatternColorIndex = xlAutomatic
  68.     End With
  69.     Cells.Font.Size = 8
  70.     Columns("A:A" ).Select
  71.     Columns("A:A" ).EntireColumn.AutoFit
  72.     Columns("B:B" ).Select
  73.     Selection.ColumnWidth = 16.29
  74.     Columns("D:D" ).Select
  75.     Columns("D:D" ).EntireColumn.AutoFit
  76.     Columns("E:E" ).Select
  77.     Columns("E:E" ).EntireColumn.AutoFit
  78.     Range("G1:G" & limite).Select
  79.    
  80.     Range("A1" ).Select
  81. Application.ScreenUpdating = True
  84. 'Renommage de la feuille récapitulative
  86. Worksheets("Feuil1" ).Name = "Tableau Récapitulatif"
  88. 'Création des feuilles additionelles
  91. Worksheets("Feuil2" ).Name = "Calculs occupation par TECH"
  93. Worksheets("Feuil3" ).Name = "Calculs occupation par CLIENT"
  95. Sheets.Add.Move After:=Sheets(Sheets.Count)
  96. Sheets(Sheets.Count).Name = "Répartition TECH par CLIENT"
  98. Sheets.Add.Move After:=Sheets(Sheets.Count)
  99. Sheets(Sheets.Count).Name = "Répartion TECH par TYPE PB"
  102.    
  103.     Sheets.Add
  104.    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  105.         "Feuil1!R1C1:R963C14", Version:=xlPivotTableVersion10).CreatePivotTable _
  106.         TableDestination:="Feuil4!R3C1", TableName:="Tableau croisé dynamique1", _
  107.         DefaultVersion:=xlPivotTableVersion10
  108.     Sheets("Feuil4" ).Select
  109.     Cells(3, 1).Select
  110.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  111.         "Tps passée" )
  112.         .Orientation = xlRowField
  113.         .Position = 1
  114.     End With
  115.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Tps passée" ). _
  116.         Orientation = xlHidden
  117.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  118.         "ID intervenant" )
  119.         .Orientation = xlRowField
  120.         .Position = 1
  121.     End With
  122.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  123.         "Tps passée" )
  124.         .Orientation = xlRowField
  125.         .Position = 2
  126.     End With
  127.     Range("B4" ).Select
  128.     With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
  129.         "Tps passée" )
  130.         .Orientation = xlColumnField
  131.         .Position = 1
  132.     End With
  133.     Range("B3" ).Select
  134.     ActiveSheet.PivotTables("Tableau croisé dynamique1" ).AddDataField ActiveSheet. _
  135.         PivotTables("Tableau croisé dynamique1" ).PivotFields("Tps passée" ), _
  136.         "Nombre de Tps passée", xlCount
  137.     Range("C10" ).Select
  138. End Sub


 
L'erreur se situe sur :  

Code :
  1. ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
  2.         "Feuil1!R1C1:R963C14", Version:=xlPivotTableVersion10).CreatePivotTable _
  3.         TableDestination:="Feuil4!R3C1", TableName:="Tableau croisé dynamique1", _
  4.         DefaultVersion:=xlPivotTableVersion10

 
'Erreur d'execution '5' : Argurment ou appel de procédure incorrect.  
Et lorsque je n'ai pas cette erreur , j'ai l'erreur d’exécution 1004.
Deplus , l'exemple du dessus n'est pas pour une plage variable car après de multiples essais, j'ai voulu faire plus simple donc merci de m'indiquer aussi comment résoudre ce problème .  
 
Merci d'avance

Reply

Marsh Posté le 22-05-2012 à 14:02:41   

Reply

Marsh Posté le 25-05-2012 à 15:18:20    

Code :
  1. Dim lrow        As Long
  2.     Dim xlrow       As String
  5.     lrow = ActiveSheet.UsedRange.Rows.Count
  6.     xlrow = lrow
  7.     Application.CommandBars("PivotTable" ).Visible = True
  8.     ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
  9.         "Tableau Récapitulatif!R1C1:R" & xlrow & "C16" ).CreatePivotTable TableDestination:="'Calculs occupation par CLIENT'!R1C1", _ TableName:="Pivot_Categ"


 
J'ai fait cette modification , mais maintenant j'ai une erreur 1004/

Reply

Sujets relatifs:

Leave a Replay

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