Marc77
XLDnaute Occasionnel
Bonjour le forum
Voici le code que j'utilise pour faire un tableau croisé en VBA.
Comment ajusté la plage de donnée 'Feuil1!R1C1:R21C2' suivant la base de donnée.
Range('A7').Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'Feuil1!R1C1:R21C2').CreatePivotTable TableDestination:='', TableName:= _
'Tableau croisé dynamique3', DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables('Tableau croisé dynamique3').PivotFields('non')
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables('Tableau croisé dynamique3').AddDataField ActiveSheet. _
PivotTables('Tableau croisé dynamique3').PivotFields('adresse'), _
'Nombre de adresse', xlCount
Merci de votre aide
Marc
Voici le code que j'utilise pour faire un tableau croisé en VBA.
Comment ajusté la plage de donnée 'Feuil1!R1C1:R21C2' suivant la base de donnée.
Range('A7').Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
'Feuil1!R1C1:R21C2').CreatePivotTable TableDestination:='', TableName:= _
'Tableau croisé dynamique3', DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables('Tableau croisé dynamique3').PivotFields('non')
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables('Tableau croisé dynamique3').AddDataField ActiveSheet. _
PivotTables('Tableau croisé dynamique3').PivotFields('adresse'), _
'Nombre de adresse', xlCount
Merci de votre aide
Marc