Faire un tableau croisé dynamique dans une macro
Résolu
anaisquestionsexcel
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24603 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour tout le monde,
Je viens vers vous pour car j'ai un problème avec un de mes travaux sur Excel. Je n'arrive pas à faire un tableau croisé dynamique dans une macro. EXCEL me dit: Impossible d'éxécuter le code en mode arrêt...... Comment faire? Merci de votre aide
Sub Macro2()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R7C3", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil4!R3C1", TableName:="Tableau croisé dynamique2", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil4").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SAN"), "Somme de SAN", _
xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"FILIALES")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("COMPTES" _
)
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("COMPTES" _
)
.Orientation = xlRowField
.Position = 1
End With
End Sub
Je viens vers vous pour car j'ai un problème avec un de mes travaux sur Excel. Je n'arrive pas à faire un tableau croisé dynamique dans une macro. EXCEL me dit: Impossible d'éxécuter le code en mode arrêt...... Comment faire? Merci de votre aide
Sub Macro2()
'
' Macro2 Macro
'
' Touche de raccourci du clavier: Ctrl+a
'
Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R7C3", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil4!R3C1", TableName:="Tableau croisé dynamique2", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil4").Select
Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SAN"), "Somme de SAN", _
xlSum
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"FILIALES")
.Orientation = xlColumnField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("COMPTES" _
)
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("COMPTES" _
)
.Orientation = xlRowField
.Position = 1
End With
End Sub
A voir également:
- Macro excel tableau croisé dynamique
- Tableau croisé dynamique - Guide
- Tableau word - Guide
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
- Trier un tableau excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
