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

XL 2016 VBA : création TCD à partir de feuilles variables - nommées

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Phillip
  • 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 !

S'inscrire
Phillip

Phillip

XLDnaute Occasionnel
Bonjour,

Je cherche à automatiser la création d'un TCD (et le mettre en forme, mais là n'est pas le sujet)

J'ai un classeur avec des feuilles nommées

Je veux :

Que la sélection se fasse sur cet onglet
Créer un onglet destination du TCD
Créer le TCD

J'ai donc nommé ma région origine
VB: 
TableauEntier = Worksheets(NomOngletactif).Range("D9").CurrentRegion.Select

Crée un onglet destination
VB: 
Sheets.Add After:=Worksheets(Worksheets.Count())
    ActiveSheet.Name = "TCD - " & aujourdhui

Donné la zone où je vais coller le TCD
Code: 
CibleTCD = Worksheets(TCDencours).Range("A1")

MAIS, quand je crée le TCD avec
Code: 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        TableauEntier, Version:=7).CreatePivotTable TableDestination:= _
        CibleTCD, TableName:="Tableau croisé dynamique2", _
        DefaultVersion:=7
    Sheets(TCDencours).Select
    Cells(1, 1).Select

ça ne marche pas...Problème de variable, mais je ne m'en sors pas....

Je vous joins un fichier exemple avec le code entier...

Merci de votre aide

Cordialement
 

Pièces jointes

Trier par date Trier par votes
Bonjour @Phillip

Il est assez déconseillé de créer des TCD par VBA, mais bon...
Quelques petites choses à revoir.

Il faut déclarer tes variables CibleTCD et TableauEntier as Range (avec un Set car ce sont des objets)
Ensuite j'ai modifié
VB: 
Worksheets(NomOngletactif).Range("D9").CurrentRegion
Par
Code: 
Worksheets(NomOngletactif).Range("A1").CurrentRegion
Pour que ça corresponde à l'exemple.
J'ai renommer les colonnes pour que les champs existent.

Un conseil, tu devrais vérifier que la feuille du jour n'existe pas déjà avant de la créer

Cordialement
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour à tous

Je confirme que tous le spécialistes des TCD déconseillent la création de TCD par VBA

On crée et peaufine son TCD (basé sur un tableau structuré et non une plage) manuellement et on peut utiliser VBA pour en modifier la source...
 
Vote positif 0 Vote négatif
Bon...OK...Mais je suis dans le 0,05% des cas ? Il faut faire à la main toute la mise en forme, les styles, les polices ? Ou alors on crée manuellement le TCD, et après on fait une macro pour la mise en forme ? C'est crétin !

Bref, maintenant, j'ai un problème avec "tablename" lors de la création. Lorsque'on crée un TCD, il donne un nom (aléatoire ?) "tableau croisé dynamique et un numéro". Je ne peux pas fixer ce nom dans ma macro ?

VB: 
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        TableauEntier, Version:=7).CreatePivotTable TableDestination:= _
        CibleTCD, TableName:="TCD", _
        DefaultVersion:=7

Merci !

Cordialement
 
Vote positif 0 Vote négatif
Re
Phillip à dit:
après on fait une macro pour la mise en forme
Cliquez pour agrandir...
Non, tu fait tout à la main et tu utilise une macro uniquement pour changer la source de données au cas où celle-ci est amenée à changer.

Pour ton problème, je pense que les TCD ne peuvent pas avoir le même nom qu'un autre.
Je ne vois, comme ça, sur le coup, qu'une seule solution.
Utilise le nombre de feuilles du classeur pour incrémenter tes noms.
Quelque chose comme :
VB: 
 Dim NomTCD As String
   NomTCD = "TCD_" & ThisWorkbook.Sheets.Count
  
  
   ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        TableauEntier, Version:=7).CreatePivotTable TableDestination:= _
        CibleTCD, TableName:=NomTCD, _
        DefaultVersion:=7
Et tu utilise NomTCD quand tu manipule ton TCD.

Cordialement
 
Vote positif 0 Vote négatif
Bonne idée, mais ça ne marche pas...Je me demande si ça n'a pas un rapport avec ta première réponse "J'ai renommer les colonnes pour que les champs existent", car, quelque soit le nom du TCD, dans le fichier livré par toi, ça marche !
 
Vote positif 0 Vote négatif
Ouf, ça y est, je crois que j'ai trouvé !

Quand je fais mon TCD "à la main", il sélectionne ma zone de tableau à partir de B1, car ma cellule A1 est VIDE !
Dans ma macro, je lui dis de sélectionner à partir de A1, et comme elle est vide, il plante !

J'ai mis "toto" dans A1, et là, ça marche ! Et quelque soit le nom du TCD...
Je vais essayer de lui donner un nom pour faire joli comme proposé dans le code du post #8, si ça ne marche pas, je laisserai comme ça !

Merci de votre aide !!

Cordialement

Phillip
 
Vote positif 0 Vote négatif
RE

Règle n°1 de sources de TCD : une et une seule ligne de titre donc une cellule vide ne peut fonctionner.

Règle N°2 : utiliser un tableau structuré et non une plage comme source sinon le TCD ne peut évoluer naturellement.
Il va falloir lui fournir des hormones de croissances par VBA ou autre...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- 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
XL 2016 Création Tableau Croisé Dynamique VBA
Réponses
2
Affichages
631
dysorthographie
A
  • Résolu(e)
XL 2016 Regroupement dates sur TCD
Réponses
3
Affichages
466
Aldonanou
A
L
  • Question Question
Microsoft 365 TCD VBA SELECTION PLUSIEUR VALEUR
Réponses
3
Affichages
693
merinos-BernardEtang
D
  • Question Question
Vba macro pour créer un tableau croisé dynamique avec lignes variables
Réponses
1
Affichages
2 K
soan
S
D
  • Question Question
XL 2019 TCD par macro
Réponses
1
Affichages
662
chris
R
  • Question Question
XL 2010 Création d'un tableau croisé dynamique à partir de cellule déjà sélectionnée
Réponses
1
Affichages
1 K
MP59
D
  • Question Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
3 K
chris
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
1 K
ERIC S
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
474
Mika07
M
M
  • Question Question
Créer un TCD en vba dont le fichier source de données est variable
Réponses
1
Affichages
3 K
chris
M
  • Question Question
XL 2016 Macro tableau croisé dynamique plage variable
Réponses
2
Affichages
3 K
chris
  • Question Question
Microsoft 365 Simplification de code
Réponses
1
Affichages
1 K
GADENSEB
C
  • Question Question
CREATION DE PLUSIEURS TCD VBA
2
Réponses
23
Affichages
4 K
Charles78
C
T
  • Question Question
Microsoft 365 VBA - TCD - Liste des champs et filtres verrouillés
Réponses
1
Affichages
2 K
Tinytoons
T
Y
  • Question Question
XL 2016 [VBA] Envoi chaques feuilles dans Corps de Mail a un destinataire different
Réponses
2
Affichages
1 K
yani
Y
C
  • Question Question
Microsoft 365 GRAPHIQUE VBA - COMMENT INDIQUER UNE VALEUR A ZERO SUR LE GRAPHIQUE
Réponses
5
Affichages
2 K
Charles78
C
  • Question Question
XL 2013 TCD automatisé qui coince sur le pivotfields
Réponses
1
Affichages
2 K
Compte Supprimé 979
C
A
  • Question Question
XL 2010 comment appliquer un code vba à un certain nombre de feuilles d'un classeur.
Réponses
3
Affichages
1 K
sylvanu
P
  • Question Question
Microsoft 365 Filtrer un TCD à partir de cases à cocher
Réponses
0
Affichages
2 K
pepeboy
P
G
  • Question Question
Microsoft 365 VBA création d'onglets à partir d'un tableau et d'un onglet modèle ...
Réponses
6
Affichages
2 K
Ethiryn - Glarilak
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…