TCD à plage variable

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : TCD à plage variable

A Pure MonsteR

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 :

Sub Rapport()
' Détermination de la limite du tableau
Dim limite As Integer
limite = ([B2].End(xlDown).Row)
Range("A1:A" & limite).Select
Application.DisplayAlerts = False
'Mise en forme première page
Dim CL As Range
Application.ScreenUpdating = False
Range("A1" ).CurrentRegion.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A1" ).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
Cells.Font.Size = 8
Columns("A:A" ).Select
Columns("A:A" ).EntireColumn.AutoFit
Columns("B:B" ).Select
Selection.ColumnWidth = 16.29
Columns("D:D" ).Select
Columns("D:D" ).EntireColumn.AutoFit
Columns("E:E" ).Select
Columns("E:E" ).EntireColumn.AutoFit
Range("G1:G" & limite).Select
Range("A1" ).Select
Application.ScreenUpdating = True
'Renommage de la feuille récapitulative
Worksheets("Feuil1" ).Name = "Tableau Récapitulatif"
'Création des feuilles additionelles
Worksheets("Feuil2" ).Name = "Calculs occupation par TECH"
Worksheets("Feuil3" ).Name = "Calculs occupation par CLIENT"
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Répartition TECH par CLIENT"
Sheets.Add.Move After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = "Répartion TECH par TYPE PB"
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R963C14", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Feuil4!R3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion10
Sheets("Feuil4" ).Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
"Tps passée" )
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields("Tps passée" ). _
Orientation = xlHidden
With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
"ID intervenant" )
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
"Tps passée" )
.Orientation = xlRowField
.Position = 2
End With
Range("B4" ).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1" ).PivotFields( _
"Tps passée" )
.Orientation = xlColumnField
.Position = 1
End With
Range("B3" ).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1" ).AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1" ).PivotFields("Tps passée" ), _
"Nombre de Tps passée", xlCount
Range("C10" ).Select
End Sub

L'erreur se situe sur :

Code :

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R963C14", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Feuil4!R3C1", TableName:="Tableau croisé dynamique1", _
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

Publicité

A Pure MonsteR

Code :

Dim lrow As Long
Dim xlrow As String
lrow = ActiveSheet.UsedRange.Rows.Count
xlrow = lrow
Application.CommandBars("PivotTable" ).Visible = True
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"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/

FORUM HardWare.fr

Programmation

VB/VBA/VBS

TCD à plage variable

Sujets relatifs
Page de taille variable pour un portfolio wordpress	Afficher variable dans textarea
plusieur TCD sur le même formulaire access	[Résolu] [KSH] Executer plusieurs commandes dans une variable
Macro TCD	Resource id2 : utiliser ce résultat comme variable
[PERL] problème avec variable de session PHP	Récuperer plusieur $_POST dans une seul variable possible ??
Transfert de variable en URL	[RESOLU] pb ajax, jquery, variable session
Plus de sujets relatifs à : TCD à plage variable

Page générée en 0.066 secondes