XL 2016 VBA - TCD - Questions diverses

Dudu2 · 21 Octobre 2022

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 · 21 Octobre 2022

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 · 21 Octobre 2022

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 · 21 Octobre 2022

@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 · 21 Octobre 2022

Bonsoir,

Dudu2 · 21 Octobre 2022

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

Dudu2 · 21 Octobre 2022

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 · 21 Octobre 2022

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 · 21 Octobre 2022

@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 · 21 Octobre 2022

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 · 21 Octobre 2022

@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 · 21 Octobre 2022

Re

Bah cette fonction permet de crééer N TCD

Code:

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 · 21 Octobre 2022

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 · 21 Octobre 2022

VB:

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 · 21 Octobre 2022

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

XL 2016 VBA - TCD - Questions diverses

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

XL 2016 - Création de tableau dynamique croisé

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

XL 2016 - tableau croisé dynamique automatique

dysorthographie

XLDnaute Accro

Pièces jointes

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Dudu2

XLDnaute Barbatruc

dysorthographie

XLDnaute Accro

Pièces jointes

Staple1600

XLDnaute Barbatruc

Discussions similaires