TCD automatisé

[BAT]

Bonjour à tou sle forum,

Question sur les TCD ! J'ai une macro qui m'extrait des données vers une feuille et je souhaite qu'elle me réalise un TCD à partir de ces données.

Le problème c'est que l'enregistreur de macro reste figé sur la zone que j'ai sélectionnée dans mon enregistrement à savoir les cellules "RAN_BASE!R1C1:R29C15"!!!

Je pense que cela doit être possible de coupler la sourceDate du TCD avec le code selection.currentRégion.select (= raccouri clavier CTRL + *) ??

Ci joint le code en question !

Selection.CurrentRegion.Select
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"RAN_BASE!R1C1:R29C15").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique3"

Est-ce possible ? Merci de votre précieuse aide !

 

[BAT]

Re : TCD automatisé

Re bonjour !

Je reprend cette discussion car j'ai besoin de savoir si cette demande est réalisable ou s'il faut que je change mon fusil d'épaule !

Pouvez me le dire ?

 

[Dan]

Re : TCD automatisé

Bonjour,

Lis ces fils :
- https://www.excel-downloads.com/threads/tcd-par-macro.66119/
- https://www.excel-downloads.com/threads/tdc-en-vba.58991/

A te lire

 

[MJ13]

Re : TCD automatisé

Bonjour BAT et Dan ainsi qu'au autres forumeurs.

Voici un code que j'utilise souvent pour mettre à jour un TCD qui a été crée avec une zone défini comme "fortcd" avec \insertion \non \définir .

[A1].Select ' active la BD
Selection.CurrentRegion.Name = "fortcd" 'Nomme la zone fortcd et la redéfini si on a rajouté des lignes
ActiveSheet.Previous.Select 'mon TCD se trouve sur la feuille précédente
Range("C8").Select 'sélectionne une cellue du TCD
ActiveSheet.PivotTables("Tableau croisé dynamique1").RefreshTable 'MAJ TCD

Il est adaptable à de nombreux TCD.

Salutations
Michel