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

[Phillip]

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

TableauEntier = Worksheets(NomOngletactif).Range("D9").CurrentRegion.Select

Crée un onglet destination

Sheets.Add After:=Worksheets(Worksheets.Count())
    ActiveSheet.Name = "TCD - " & aujourdhui

Donné la zone où je vais coller le TCD

CibleTCD = Worksheets(TCDencours).Range("A1")

MAIS, quand je crée le TCD avec

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

 

[Efgé]

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é

Worksheets(NomOngletactif).Range("D9").CurrentRegion

Par

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

 

[chris]

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...

 

[Phillip]

Bonjour,

Merci de votre aide. Je ne savais pas qu'on déconseillait la création de TCD avec VBA...Je serai curieux de savoir pourquoi ?

Cordialement

 

[dysorthographie]

Bonjour,
Un truc que j'ai commis il y y déjà quelques temps ,si ça peut servir !

Macro VBA TablePivot - Macros et VBA Excel

Je débute sur VBA et je rencontre un problème avec le code suivant: Code : - 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

www.developpez.net

 

[chris]

Je ne savais pas qu'on déconseillait la création de TCD avec VBA...Je serai curieux de savoir pourquoi ?

Parce que dans 99,5% des cas c'est inutile et contreproductif...

 

[Phillip]

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 ?

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

Merci !

Cordialement

 

[Efgé]

Re

après on fait une macro pour la mise en forme

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 :

 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

 

[Phillip]

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 !

 

[Phillip]

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

 

[chris]

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...