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.

 

[Staple1600]

Bonsoir le fil, @Dudu2

Toujours étonné que les vieux de la vieille ne mettent pas le nez dans la poussière du forum
(C'est pas faute pourtant de le conseiller aux tits nouveaux (cf la charte)
(Un paradoxe de plus made in XLD )

Nous étions en 2018

XL 2016 - Création de tableau dynamique croisé

Bonjour, J'ai développer un code pour selectionner les données d'un excel et les met en forme dans un tableau dynamique croisé, mais j'ai une erreur au niveau du nom a chaque fois. Pouvez vous m'aider svp ? Voici mon code Sub TCD_échéancier() Der = ActiveSheet.Cells(Rows.count...

excel-downloads.com

 

[Dudu2]

Salut @Staple1600,
Merci de te manifester, j'avais grand peur de rester un peu seul sur cette question.
Je suis allé un peu partout en français et en anglais mais en effet je n'ai pas été sur le lien que tu indiques.

Cependant je ne suis pas sûr d'y trouver la réponse au problème consistant à "décoder" les éléments constitutifs d'un TCD existant (au moins les plus communs) pour générer un code capable de le reconstituer par macro sur la base d'une nouvelle source de données.

Le Post sur lequel tu pointes indique comment créer un TCD. Mais ce n'est pas suffisant. A moins que plus loin dans le sujet il y ait d'autres infos ?

 

[Staple1600]

@Dudu2

Dans un premier temps, je suis arrêté à
"Merci pour toute indication de méthode, code etc..."

Personnellement, je créé pas mal de TCD en VBA
(juste pour un gain de temps)
(Et il y a quels fils sur XLD, où j'ai posté quelques VBA, d'où mon lien)

Pour le reste, je trouve plus ergonomique et (une fois le TCD créé) de le manipuler à la souris.
Un autre bout de code (que j'affectionne )

XL 2016 - tableau croisé dynamique automatique

Bonjour à tous, Chaque mois, je dois traiter et analyser des données que je reporte dans un tableau croisé dynamique et un graphique. La base de données peut faire plusieurs lignes (une centaine) et chaque mois le nombre de lignes est différente. Je voudrais automatiser ces opérations...

excel-downloads.com

Pour aller plus loin, comme pour les newbies :
"Un fichier exemple blah blah ..."

 

[dysorthographie]

Bonsoir,

 

[Dudu2]

Merci @dysorthographie,
Je vais approfondir demain mais je crains que tu ne doives m'en dire davantage sur ce fichier et cette classe.

 

[Dudu2]

D'ailleurs je me demande si l'objectif que je me suis assigné n'est pas totalement irréaliste.
"Créer une macro qui analyse un TCD existant et est capable d'en re-créer un équivalent" !

Peut-être devrais-je dire à mon utilisateur:
- créé ton TCD
- j'enregistre tes manips,
- je les stocke dans un .bas
- au besoin je ré-incorpore le .bas et l'exécute

 

[Staple1600]

Re

@Dudu2
Si la structure dees données sont identiques, c'est très simple. (de créér N TCD à l'envie)
Tu n'as pas vu l'ajout dans le message#4 ?

 

[Dudu2]

@Staple1600, ce n'est pas moi qui veut faire ça. C'est quelqu'un qui m'a demandé qui ne veut pas perdre de temps à faire 20 fois la même définition de TCD par jour et cliquer sur un bouton pour l'avoir.
Et je le comprends.

 

[Dudu2]

Il y a peut-être une solution à creuser qui est le copy du TCD.TableRange2 vers une feuille de sauvegarde. Puis repartir de ça pour lier avec la source de données.
En fait je suis un peu comme un missile qui cherche sa cible... avant d'exploser en vol

 

[Dudu2]

@Staple1600, je viens de revoir ton lien du message #4.
Mais je ne comprends pas en quoi cette création de TCD est la copie d'un autre TCD dont a priori je ne sais rien.

Imagine... il y a un TCD quelconque dans une feuille. Je (ou quelqu'un peu importe) veux en sauvegarder la structure pour pouvoir l'appliquer à un nouveau TCD que je vais créer dans 1 heure.
Que dois-je faire en VBA pour faire ça ?

Et bien sûr cette manip n'est pas exclusive d'un seul TCD.
Il faut une banque de modèles de TCD à laquelle je puisse accéder pour choisir celui que je veux appliquer au TCD que je veux créer.

 

[Staple1600]

Re

Bah cette fonction permet de crééer N TCD

Private Function Creation_TCD(ByRef srcData As Range, Bazinga As XlPivotTableSourceType) As PivotTable
Dim ptCache As PivotCache, TCD As PivotTable, F As Worksheet
Set ptCache = ThisWorkbook.PivotCaches.Create(SourceType:=Bazinga, SourceData:=srcData)
Set F = ThisWorkbook.Sheets.Add
Set TCD = ptCache.CreatePivotTable(TableDestination:=F.Cells(3, 1))
Set Creation_TCD = TCD
End Function

Elle est paramétrable
On spécifie la place de cellules source
Donc en partant sur cette base, on pourrait améliorer la chose, non ?

 

[Dudu2]

Donc en partant sur cette base, on pourrait améliorer la chose, non ?

Le problème n'est pas de créer le TCD. J'ai déjà une macro qui créé un TCD vierge. C'est hype simple.
Le problème est de lui appliquer le modèle d'un autre TCD existant stocké quelque part.

A la réflexion, je ne crois pas/plus qu'il faille décortiquer toutes les propriétés du TCD à copier pour en re-créer un à l'identique. Ce serait très complexe en terme de code.
Il faut pouvoir exporter quelque chose et le TCD.TableRange2 semble un bon candidat. Enfin j'espère.

 

[dysorthographie]

Private Sub test()
CopyTdc Sheets("TDC"), "TDC", Sheets("Feuil1"), "toto", "Data!R1C5:R5C7"
End Sub

Public Sub CopyTdc(ShSource As Worksheet, Tdc As String, Cible As Worksheet, TdcCible As String, Plage As String)
For Each td In ShSource.PivotTables
    If UCase(td.Name) = UCase(Tdc) Then
        td.TableRange2.Copy Cible.Range("A1")
        With Cible
            .PivotTables(.PivotTables.Count).ChangePivotCache Cible.Parent.PivotCaches.PivotCaches. _
            Create(SourceType:=xlDatabase, SourceData:=Plage, Version:=xlPivotTableVersion12)
          
            .PivotTables(.PivotTables.Count).Name = TdcCible
        End With
        Exit For
    End If
Next
End Sub

 

[Staple1600]

@Dudu2

Lisant ceci dans le premier message

Je suis très peu versé dans ce domaine

Comment on peut deviner ceci ??

Le problème n'est pas de créer le TCD. J'ai déjà une macro qui créé un TCD vierge. C'est hyper simple.

NB: je me suis basé sur les explications du premier message pour poster mes réponses.