Macro tableau croisé dynamique

[guillaumegh]

Bonjour a tous

Mon maitre de stage me demande de realiser une macro qui a pour fonction de creer un tcd.

Le tableau de base contient les colonnes
Div.
Gest.
Article
Réf client Mag.
Utilis. libr
GpCl
Don. ordre
SM planif.
Qté CdeCl ouverte
Cdes client en cours
Grpe march.

Dans mon TCD, je dois avoir
-Comme etiquette de ligne les champs "Article" et "Utilis. libr"
-Comme etiquette de colonne "SM planif."
-Comme valeurs "Qté CdeCl ouverte", sous forme de somme de celles ci.


J arrive a créer le tcd sans macro, mais dès que j'utilise la commande "enregistrer une macro" etc etc, cela m affiche une erreur '5'!

Voila le code de ma macro, merci d avance a tous


Sub Macro1()
'
' Macro1 Macro
'

'
Range("A1:M80").Select
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Feuil1!R1C1:R80C13", Version:=xlPivotTableVersion12).CreatePivotTable _
TableDestination:="Feuil2!R3C1", TableName:="Tableau croisé dynamique1", _
DefaultVersion:=xlPivotTableVersion12
Sheets("Feuil2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Article" _
)
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Utilis. libr")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"SM planif.")
.Orientation = xlColumnField
.Position = 1
End With
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Qté CdeCl ouverte"), _
"Somme de Qté CdeCl ouverte", xlSum
Range("C5").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Somme de Qté CdeCl ouverte")
.Calculation = xlRunningTotal
End With
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Somme de Qté CdeCl ouverte")
.BaseField = "SM planif."
End With
End Sub

 

[guillaumegh]

Re : Macro tableau croisé dynamique

Svp, aidez moi, c est vraiment important!

Merci d avance a toutes et tous🙂

 

[Celeda]

Re : Macro tableau croisé dynamique

Bonjour,

Tout d'abord il faut pas s'enerver keep cool et comme tout arrive sur XLD selon la disponibilité des contributeurs et contributrices, entre deux cafés, un apéro, une sieste, un moment sportif, une partie de cartes, un petit tour de vélo, une escalade à la montagne, un bisou aux enfants ou petits-enfants, un téléphone 06, ou un téléphone 09 ou bien les deux, bref, et j'en passe des moments où tous ces contributeurs et contributrices sont occupés, sans parler de leur gagne-pain, bref si tu as réussi à me lire jusqu'à là c'est que tu es resté cool.

Donc voici, un super lien dans lequel notre ami Pierrot (non pas celui qui tient la plume, mais celui qui maîtrise le clavier et le language des codes lol!!) m'a aidée à créer un TCD avec différents champs. Récupère le dernier fichier de 9h45 et avise en fonction de tes champs.
Si cela peut t'aider, sinon reviens nous toujours cool.🙂

https://www.excel-downloads.com/threads/vba-filtre-date-tcd.149712/

 

[guillaumegh]

Re : Macro tableau croisé dynamique

Merci bcp, je vais de ce pas y jeter un coup d oeil!

Dsl d etre stressé, je veux pas faire mauvaise impression le 2e jour de mon stage, c est tout!

Bonne continuation