A
adam
Guest
Bonjour,
Je voudrais savoir si on peut automatiser la mise à jour d'un tableau croisé dynamique qui utilise un tableau avec une hauteur de lignes variable.
code:
Sub essai()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
''id group'!R1C1:R3374C155').CreatePivotTable TableDestination:='', _
TableName:='Tableau croisé dynamique2', DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables('Tableau croisé dynamique2').PivotFields( _
'aze')
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables('Tableau croisé dynamique2').PivotFields( _
'uip')
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables('Tableau croisé dynamique2').AddDataField ActiveSheet. _
PivotTables('Tableau croisé dynamique2').PivotFields('uip'), _
'Somme de uip', xlSum
End Sub
Peut on remplacer 'R1C1:R3374C155'?Ou doit on se contenter d'agrandir la sélection manuellement?
Je voudrais savoir si on peut automatiser la mise à jour d'un tableau croisé dynamique qui utilise un tableau avec une hauteur de lignes variable.
code:
Sub essai()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
''id group'!R1C1:R3374C155').CreatePivotTable TableDestination:='', _
TableName:='Tableau croisé dynamique2', DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables('Tableau croisé dynamique2').PivotFields( _
'aze')
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables('Tableau croisé dynamique2').PivotFields( _
'uip')
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables('Tableau croisé dynamique2').AddDataField ActiveSheet. _
PivotTables('Tableau croisé dynamique2').PivotFields('uip'), _
'Somme de uip', xlSum
End Sub
Peut on remplacer 'R1C1:R3374C155'?Ou doit on se contenter d'agrandir la sélection manuellement?