Créer un TCD avec VBA excel 2016

Version imprimable

2 pièce(s) jointe(s)

Bonjour,

J'ai essayé à plusieurs reprise de créer un TCD depuis mais sans succès pourriez vous m'aidez svp.
J'aimerai pouvoir utiliser tout le tableau fichier texte que j'ai converti en excel, pouvoir le passer en TCD par VBA en appuyant sur un bouton depuis une boite de dialogue.

et voici le code que j'ai essayé :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Private Sub TCD_Click() ' ' CREERTCD Macro ' ' Sélection des données Sheets("21-05-2019").Select Columns("A:AE").Select ' Création du TCD ActiveWorkbook.Worksheets("21-05-2019").PivotTables("TCD").PivotCache.CreatePivotTable TableDestination:="TCD", TableName:="TCD", DefaultVersion:=xlPivotTableVersion12 ' Actualiser Range("C9").Select ActiveSheet.PivotTables("TCD").PivotCache.Refresh End Sub
Je vous remercie d'avance.

26/05/2019, 09h45
78chris
Bonjour

S'agit-il d'une exercice (comme le laisse entendre ce fil https://www.developpez.net/forums/d1.../
ou bien du traitement d'un cas réel ?

Si c'est un cas réel quelques conseils :
de façon générale on ne crée pas de TCD par VBA
pas plus que les graphiques
en particulier sur des sources appelées à changer

On crée manuellement la structure du ou des TCD, on y associe les GCD voulus

On peut ensuite changer le contenu de la source par VBA ou éventuellement redéfinir la source des TCD.

Ton fichier txt a deux ligne d'en-tête pour créer le titre : cela devrait être gérer en amont de son utilisation par un TCD ou un graphique

Si l'objectif est de changer chaque jour de source, puisque tu as 2016, le mieux serait de modéliser le prétraitement du fichier dans PowerQuery.

Il ne resterait en VBA qu'à
- actualiser pour que TCD et graphiques soient à jour
- enchaîner tes exports de graphique jpg
  ...
26/05/2019, 11h50
pacolapin

C'est pour mon projet de fin d'étude et le fait d'avoir une interface ou je clique sur des boutons est un vrai plus au niveau visuel devant le jury sachant que aucun ne maîtrise VBA, du coup je cherche à créer mon TCD en cliquant sur le bouton correspondant à cet effet. Je suis d'accord il n'y a pas grand intérêt mais ils seront plus content comme cela.

Du coup avec vous une solution pour moi ?

Cordialement
26/05/2019, 13h03
78chris
RE

Rien n'empêche de masquer des onglets et le clic sur le bouton, actualise puis affiche l'onglet ...

Sinon la construction d'un TCD nécessite de définir des champs
- d'analyse en zones en filtre et/ou lignes et/ou colonne
- de valeurs avec le choix d'une opération pour chaque statistique souhaitée
Utilise l'enregistreur macros pour voir le principe ainsi tu verras tous les objets à manipuler...

L'actualisation du TCD (...PivotCache.Refresh) ne sert à rien si tu le crées puisqu'il prend les données disponibles à cet instant T