XL 2016 VBA - TCD - Questions diverses

[Dudu2]

Bonjour le Forum,

Je m'adresse aux spécialistes des TCD et de leur manipulation en VBA.
Je suis très peu versé dans ce domaine et pour un utilisateur intensif de TCDs je dois réaliser certaines tâches en VBA.

La première est de reconstituer un TCD en VBA en partant d'un modèle de TCD existant (et évidemment d'une source de même modèle).
Je suppose qu'il y a plusieurs étapes: les champs, les filtres, les tris, les groupes...

Merci pour toute indication de méthode, code etc...
Désolé pour cette question très ouverte. Peut-être n'est-elle pas judicieuse dans le cadre du forum.

 

[dysorthographie]

Si tu copies le TDC sur une autre feuille, tu n'a qu'à lui donner le bon range pour que ça fonctionne !

Le TDC initiale content toute les informations dès l'instant où la source de données et du même format que la source initiale du TDC!

 

[Dudu2]

Si tu copies le TDC sur une autre feuille, tu n'a qu'à lui donner le bon range pour que ça fonctionne !

Oui, ça je sais bien, mais le TCD copié / exporté dans un classeur destiné à servir de modèle ultérieurement, je ne peux pas lui laisser le SourceData du TCD originel qui va disparaitre et qui de toutes façons me ferait un lien externe.

Il faut que je lui assigne des données spécifiques (d'ailleurs j'ai prévu un simple échantillon du SourceData originel comme simple base de référence). Et c'est là que je dois trouver le SourceData originel pour le recopier dans le classeur modèle et le ré-assigner au TCD copié / exporté.

 

[Dudu2]

Bon, j'ai fini par décoder ce SourceData dans tous les cas pour en faire un Range en identifiant:
- Le classeur
- La feuille
- Le Range
ce quelque soit le référencement:

Function SourceDataToRange(TCD As PivotTable) As Range
    SourceData = TCD.SourceData
    '_____________
    'Range désigné
    '"L5C3:L8C5"
    '"Feuil1!L5C3:L8C5"
    '"[Classeur1]Feuil1!L5C3:L8C5"
    '___________________________
    'Nom du Gestionnaire de noms
    '"Mazone"
    '"Tableau1"
    '"Classeur1!Tableau1"

J'ai fait du code mais je vois pas d'autre solution !

Edit: si quelqu'un est intéressé, je peux passer le code du bidule, testé pour tous les cas listés.

 

[dysorthographie]

tu peux donner n'importe quel datasource dans la mesure ou il respect le forma du TDC!
dsource = "'" & PathFichier & "]" & Onglet & "'!" & Range("G1:K7").Address(ReferenceStyle:=xlR1C1)

Sub a()
With Workbooks.ADD
        .Sheets(1).Name = "TDC"
        TdcExistant(ThisWorkbook.Sheets("Tdc"), "TDC").TableRange2.Copy .Sheets("TDC").Range("A1")
        .Sheets("TDC").PivotTables(.Sheets("TDC").PivotTables.Count).Name = "TDC"
        ThisWorkbook.Sheets("Data").UsedRange.Copy .Sheets("Feuil3").Range("A1")
       .Sheets("TDC").PivotTables("TDC").PivotCache.SourceData = "Feuil3!" & Range("G1:K7").Address(ReferenceStyle:=xlR1C1)
End With
End Sub

Public Function TdcExistant(Sh As Worksheet, Tdc As String) As PivotTable
For Each td In Sh.PivotTables
   If UCase(td.Name) = UCase(Tdc) Then
         Set TdcExistant = td
         Exit For
   End If
Next
End Function

 

[TooFatBoy]

Pour info TDC Tableau Dynamique Croisé

Et pourquoi ne pas appeler ça un "tableau croisé dynamique" comme le fait Microsoft ?

 

[Dudu2]

tu peux donner n'importe quel datasource dans la mesure ou il respect le forma du TDC!
dsource = "'" & PathFichier & "]" & Onglet & "'!" & Range("G1:K7").Address(ReferenceStyle:=xlR1C1)

Oui, merci pour la formulation.
Ça j'ai à le faire lorsque j'assigne la source copiée / échantillonnée en Export dans le classeur TCD modèle. Et de manière symétrique sur la vraie source en Import à partir du TCD modèle.

Le code que j'ai du faire c'est pour faire l'inverse, c'est à dire transformer la SourceData originelle en format TCD à l'export en Range copiable. Rien de savant.

Et pourquoi ne pas appeler ça un "tableau croisé dynamique" comme le fait Microsoft ?

Moi j'appelle ça un TCD mais si ça s'appelle aussi un TDC qui n'est pas un fourchage de doigts, why not ? Le nom original c'est Pivot Table, donc PT en short. Si j'ose dire.

 

[TooFatBoy]

Moi j'appelle ça un TCD mais si ça s'appelle aussi un TDC qui n'est pas un fourchage de doigts, why not ?

Moi je dis ça par rapport à ce qui est écrit dans les menus de ma version d'Excel (et un peu par rapport à ce que je vois partout sur le Net).
Mais c'est vrai que chacun peut lui donner le nom qu'il veut (même si c'est quand même légèrement moins pratique pour se comprendre si chacun invente son propre nom ).

Le nom original c'est Pivot Table, donc PT en short. Si j'ose dire.

Fantastique aussi celle-là. Je mets un 10/10 !

 

[dysorthographie]

Et pourquoi ne pas appeler ça un "tableau croisé dynamique" comme le fait Microsoft ?

Bonjour,
tableau croisé dynamique1,tableau croisé dynamique2,tableau croisé dynamique1214????


parce qu'on ne sais pas comment Microsoft va l'appeler, alors que si on lui donne un nom, et peut importe lequel, on sais le quel cherche par la suite!

 

[Dudu2]

Ok les TCDistes, merci pour les tuyaux, le principe énoncé en Post #20 fonctionne comme une horloge.
Exporter des TCDs, pour appliquer / importer facilement leurs structures à des nouvelles sources de données récurrentes et (+/-) identiques en un claquement de doigt, c'est une affaire qui roule

.
Que de temps gagné !

 

[Staple1600]

Bonjour le fil

@Dudu2
Pour ma gouverne, tu peux illustrer ton "principe du post#20", stp ?
(avec un petit fichier exemple)
Merci.

 

[Dudu2]

Bonjour @Staple1600,
J'ai fait ça dans le cadre d'un développement applicatif avec intégration dans un Formulaire de liste des Modèles TCD, d'un système de stockage. Top gros à sortir en exemple.
J'avais laissé un bout de code ne Post #20 retiré pour cause que la discussion avait dévié du principe qu'il mettait en œuvre. Je dois l'avoir quelque part, je le remettrai.

 

[Staple1600]

@Dudu2
Merci.
C'est simplement pour comparer ta méthode à celle que j'exposais plus bas dans le fil.

 

[Dudu2]

celle que j'exposais plus bas dans le fi

A quel message tu fais référence ?

 

[Staple1600]

@Dudu2
Le message#12

L'idée étant de
(si les données sources sont toujours de structures identiques)
de créér le TCD en VBA en changeant la plage de cellule dans "la macro appelante"

 

[Dudu2]

Oui, c'est la méthode adoptée, je n'ai sans doute pas bien compris ton code au départ, mais c'est bien la manière de procéder.
Merci @Staple1600