Pivot Table

X

xksusha

XLDnaute Nouveau
Bonjour,

J'ai besoin de faire un TCD avec 31 lignes de données, j'ai fait une macro pour cela, mais je sens que la vitesse d'execution n'est pas du tout noramle ~3 min pour un fichier. Je vous prie alors de regarder mon code et de me dire où est mon eurror.

Merci par avance!

Code VBA:

ActiveCell.Offset(16, 4).Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Soldes Credit'!R1C1:R10000C32").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"GUICHET GEST CPTE PPAL")
.Orientation = xlColumnField
.Position = 1
End With

ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 1"), _
"Somme de SOLDE JOUR 1", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 2"), _
"Somme de SOLDE JOUR 2", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 3"), _
"Somme de SOLDE JOUR 3", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 4"), _
"Somme de SOLDE JOUR 4", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 5"), _
"Somme de SOLDE JOUR 5", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 6"), _
"Somme de SOLDE JOUR 6", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 7"), _
"Somme de SOLDE JOUR 7", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 8"), _
"Somme de SOLDE JOUR 8", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 9"), _
"Somme de SOLDE JOUR 9", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 10"), _
"Somme de SOLDE JOUR 10", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 11"), _
"Somme de SOLDE JOUR 11", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 12"), _
"Somme de SOLDE JOUR 12", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 13"), _
"Somme de SOLDE JOUR 13", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 14"), _
"Somme de SOLDE JOUR 14", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 15"), _
"Somme de SOLDE JOUR 15", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 16"), _
"Somme de SOLDE JOUR 16", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 17"), _
"Somme de SOLDE JOUR 17", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 18"), _
"Somme de SOLDE JOUR 18", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 19"), _
"Somme de SOLDE JOUR 19", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 20"), _
"Somme de SOLDE JOUR 20", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 21"), _
"Somme de SOLDE JOUR 21", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 22"), _
"Somme de SOLDE JOUR 22", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 23"), _
"Somme de SOLDE JOUR 23", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 24"), _
"Somme de SOLDE JOUR 24", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 25"), _
"Somme de SOLDE JOUR 25", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 26"), _
"Somme de SOLDE JOUR 26", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 27"), _
"Somme de SOLDE JOUR 27", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 28"), _
"Somme de SOLDE JOUR 28", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 29"), _
"Somme de SOLDE JOUR 29", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 30"), _
"Somme de SOLDE JOUR 30", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("SOLDE JOUR 31"), _
"Somme de SOLDE JOUR 31", xlSum

ActiveSheet.Name = "Credit"
Sheets("Soldes Debit").Select
ActiveCell.Offset(7, 4).Range("A1").Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"'Soldes Debit'!R1C1:R10000C32").CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique2", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields( _
"GUICHET GEST CPTE PPAL")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 1"), _
"Somme de SOLDE JOUR 1", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 2"), _
"Somme de SOLDE JOUR 2", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 3"), _
"Somme de SOLDE JOUR 3", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 4"), _
"Somme de SOLDE JOUR 4", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 5"), _
"Somme de SOLDE JOUR 5", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 6"), _
"Somme de SOLDE JOUR 6", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 7"), _
"Somme de SOLDE JOUR 7", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 8"), _
"Somme de SOLDE JOUR 8", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 9"), _
"Somme de SOLDE JOUR 9", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 10"), _
"Somme de SOLDE JOUR 10", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 11"), _
"Somme de SOLDE JOUR 11", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 12"), _
"Somme de SOLDE JOUR 12", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 13"), _
"Somme de SOLDE JOUR 13", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 14"), _
"Somme de SOLDE JOUR 14", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 15"), _
"Somme de SOLDE JOUR 15", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 16"), _
"Somme de SOLDE JOUR 16", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 17"), _
"Somme de SOLDE JOUR 17", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 18"), _
"Somme de SOLDE JOUR 18", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 19"), _
"Somme de SOLDE JOUR 19", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 20"), _
"Somme de SOLDE JOUR 20", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 21"), _
"Somme de SOLDE JOUR 21", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 22"), _
"Somme de SOLDE JOUR 22", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 23"), _
"Somme de SOLDE JOUR 23", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 24"), _
"Somme de SOLDE JOUR 24", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 25"), _
"Somme de SOLDE JOUR 25", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 26"), _
"Somme de SOLDE JOUR 26", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 27"), _
"Somme de SOLDE JOUR 27", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 28"), _
"Somme de SOLDE JOUR 28", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 29"), _
"Somme de SOLDE JOUR 29", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 30"), _
"Somme de SOLDE JOUR 30", xlSum
ActiveSheet.PivotTables("Tableau croisé dynamique2").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique2").PivotFields("SOLDE JOUR 31"), _
"Somme de SOLDE JOUR 31", xlSum

ActiveSheet.Name = "Debit"
 

Discussions similaires

R
  • Question
XL 2010 Création d'un tableau croisé dynamique à partir de cellule déjà sélectionnée
Réponses
1
Affichages
978
MP59
MP59
D
  • Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
2 K
chris
chris
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
1 K
ERIC S
ERIC S
M
  • Question
Créer un TCD en vba dont le fichier source de données est variable
Réponses
1
Affichages
3 K
chris
chris
L
  • Question
XL 2016 mise à jour d'un tableau croisé dynamique via une macro
Réponses
1
Affichages
2 K
LN80
L
F
  • Résolu(e)
XL 2021 Créer Macro permettant d'indexer des nouveaux clients ? [Résolu]
4 5 6
Réponses
82
Affichages
2 K
fanou06
F
vgendron
  • Question
Power Query Premiers Pas Power Query, combiner tableaux provenant de différents onglets
Réponses
8
Affichages
856
vgendron
vgendron
P
  • Question
Microsoft 365 Filtrer un TCD à partir de cases à cocher
Réponses
0
Affichages
2 K
pepeboy
P
S
  • Question
XL 2010 Aide actualisation TCD avec Combobox
Réponses
14
Affichages
2 K
safranien
S
Z
  • Question
XL 2019 Module macro
Réponses
4
Affichages
828
Zazagally
Z

Membres actuellement en ligne

13 membres et 348 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 355
Messages
2 087 553
Membres
103 588
dernier inscrit
Tom59300Tom