Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

TCD automatisé

  • Initiateur de la discussion Initiateur de la discussion BAT
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

BAT

XLDnaute Occasionnel
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 !
 
Dernière édition:
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 ?
 
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
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Question Question
Réponses
1
Affichages
759
M
Réponses
2
Affichages
3 K
T
Réponses
1
Affichages
2 K
Tinytoons
T
Réponses
1
Affichages
2 K
Compte Supprimé 979
C
C
Réponses
5
Affichages
2 K
Charles78
C
V
Réponses
69
Affichages
9 K
V
Réponses
4
Affichages
1 K
Réponses
7
Affichages
1 K
J
Réponses
4
Affichages
2 K
jmten92
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…