MACRO TCD
Bonjour à tous,
Je suis confrontée à un problème récurrent sur les forums traîtants d'Excel: faire un TCD avec une macro
J'ai une feuille avec le tableau de données nommée Don et une feuille Tableau ou je souhaite mettre le TCD!
J'ai enregistrer la macro suivante:
Sub TabBCG()
' TabBCG Macro
Cells.Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Don!R1C1:R1048576C22", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="Tableau!R1C1", TableName:="TCD" _
, DefaultVersion:=xlPivotTableVersion14
Sheets("Tableau").Select
Cells(1, 1).Select
With ActiveSheet.PivotTables("TCD").PivotFields( _
"Réf. Article")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet. _
PivotTables("TCD").PivotFields("CA"), "Nombre de CA", _
xlCount
With ActiveSheet.PivotTables("TCD").PivotFields( _
"Nombre de CA")
.Caption = "Chiffre d'Affaire"
.Function = xlSum
End With
ActiveSheet.PivotTables("TCD").AddDataField ActiveSheet. _
PivotTables("TCD").PivotFields("%Marge"), _
"Nombre de %Marge", xlCount
With ActiveSheet.PivotTables("TCD").PivotFields( _
"Nombre de %Marge")
.Caption = "Taux de Marge"
.Function = xlAverage
End With
End Sub
Après avoir parcourue toutes les sites portant sur ce sujet, je n'arrive toujours pas résoudre ce pb !
Quelqu'un saurait-il la solution miracle ?
Cdlt,
Bonjour,
Merci de joindre un fichier que l'on voit sa structure (éventuellement anonymisé).
Cdlt.
Bonjour Jean-Eric, toujours au rendez-vous,
Voici un fichier de données test.
J'ai déjà essayé de faire quelque truc mais rien ne vas.
Ce que je souhaite, c'est un TCD avec 3 colonnes
Reference, Somme des CA, Moyenne des marges
Est-il possible de créer un bouton pouvant mettre à jour ce TCD ????
En espèrant te relire
Re,
Une première proposition.
Le TCD est actualisé automatiquement à chaque activation de la feuille "BCGmatrix".
A te relire, pour la mise en forme
Cdlt.
Merci beaucoup Jean-Eric, grâce à toi sa marche du tonerre
Re,
@+