Macro pour créer/copier un tableau croisé dynamique

Bonjour,

Voici mon problème, je souhaiterais créer une macro qui permet de créer un tableau croisé dynamique, dans le fichier joint il s'agit du tableau de la feuille "Base de données".

Ce tableau doit avoir en étiquette de lignes la valeur "agent x" et en valeur la "somme de TU"

Le plus compliqué est qu'avec cette macro le tableau se créer, peut être copier dans la "feuil1" à partir de la ligne A3.

J'ai réussit à créer manuellement le tableau croisé dynamique il est en exemple dans la "feuil1".

Si vous pouviez m'aider je vous remercie par avance.

Bonne soirée.

Si tu veux une macro, pourquoi ne pas utiliser l'enregistreur de macro ?

Bonjour et bonne année,

La question est mal formulée et prête à confusion.

Cependant, je joins un exemple de copie de TCD.

Cdlt.

Option Explicit

Private Sub CommandButton1_Click()

    Application.ScreenUpdating = False
    Me.Cells(3, 1).CurrentRegion.ClearContents
    With Me.PivotTables(1)
        .PivotCache.Refresh
        .TableRange1.Copy
    End With
    Me.Cells(3, 1).PasteSpecial xlValues
    Application.CutCopyMode = False

End Sub

Bonjour,

En effet, j'ai réussit à concevoir la macro qui fonctionne.

J'ai un autre problème, j'aimerais supprimer via une macro le TCD en A3 et B9. Le seul souci, c'est que le tableau peut être variable et termiener en B10, B11, B12 .... Il commencera toujours en A3 par contre.

Existe t'il une solution?

Merci


Bonjour et bonne année à vous.

Merci pour le reflexion que vous avez menée et je vais essayer ce que vous proposez.

Voici la macro qui ressort de l'enregistrement, elle n'est pas optimisée mais elle fonctionne.

Merci bien.

Sheets("Base de données").Select

ActiveWindow.SmallScroll Down:=-12

Columns("A:B").Select

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _

"Base de données!R1C1:R1048576C2", Version:=xlPivotTableVersion14). _

CreatePivotTable TableDestination:="Feuil1!R3C1", TableName:= _

"Tableau croisé dynamique8", DefaultVersion:=xlPivotTableVersion14

Sheets("Feuil1").Select

Cells(3, 1).Select

With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Agent x" _

)

.Orientation = xlRowField

.Position = 1

End With

With ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("TU")

.Orientation = xlRowField

.Position = 2

End With

ActiveSheet.PivotTables("Tableau croisé dynamique8").AddDataField ActiveSheet. _

PivotTables("Tableau croisé dynamique8").PivotFields("TU"), "Nombre de TU", _

xlCount

Range("B7").Select

ActiveSheet.PivotTables("Tableau croisé dynamique8").PivotFields("Nombre de TU" _

).Function = xlSum

End Sub

Rechercher des sujets similaires à "macro creer copier tableau croise dynamique"