Source données TDC

Version imprimable

27/04/2015, 13h15
Mrfreeze117

Source données TDC

Bonjour à tous et à toutes,

J'ai un soucis pour mettre à jour mon TDC, avant de le rafraîchir je dois redimensionner ma source de donnée car mon nombre de lignes peut changer.

Code:

Sheets("TDCPPA").PivotTables("TDC prio").SourceData = " 'PPA SYNTHESES Priorités!'R4C3:R19C10"

Mon soucis viens du faite que mon nom d'onglet contient des espaces, car quand je renomme l'onglet en PPASYNTHESESPriorités le code :

Code:

Sheets("TDCPPA").PivotTables("TDC prio").SourceData = "PPASYNTHESESPriorités!R4C3:R19C10"

Fonctionne.

Pouvez-vous m'aider?

Merci d'avance
27/04/2015, 13h49
78chris

Bonjour

Si tu mets ta source sous forme de liste (onglet Données, Créer une liste) et les données sont bien ajoutées au niveau du * bleu, la source du TCD s'auto-adaptera.

Sinon, il faut encadrer le nom d'onglet par des apostrophes : le ! ne doit pas être inclus dans les apostrophes et vérifie aussi tes espaces entre " et '.
27/04/2015, 15h09
Mrfreeze117

J'ai essayé ça:

Code:

Sheets("TDCPPA").PivotTables("TDC prio").SourceData = "'PPA SYNTHESES Priorités'!R4C3:R19C10"

mais ça me fait:

Code:

Le rapport de tableau croisé dynamique à été enregistré sans les donnée sources. Utilisez la commande Actualiser les données pour mettre à jour le rapport.
27/04/2015, 15h31
78chris

Re

Et si tu le fais avec l'enregistreur macro, cela donne quoi ?

ça donne ça:
Code:

1 2 3 4 ActiveSheet.PivotTables("TDC prio").ChangePivotCache ActiveWorkbook.PivotCaches _ .Create(SourceType:=xlDatabase, SourceData:= _ "C:\Users\Documents\2- Projets\PPA\[PPA SEM vierge v 1.92.xls]PPA SYNTHESES Priorités!R4C3:R19C10" _ , VERSION:=xlPivotTableVersion10)
que je transforme en ça:
Code:

1 2 3 Sheets("TDCPPA").PivotTables("TDC prio").ChangePivotCache ActiveWorkbook.PivotCaches _ .Create(SourceType:=xlDatabase, SourceData:= _ "PPA SYNTHESES Priorités!R4C3:R26C10")
Mais j'ai aucune idée si ça marche sous 2003. J'ai un PC équipé en 2010 et pour avoir un PC équipé 2003 je galère. J'ai déjà utilisé le code que je présente au début de ce post mais dans le nom d'onglet il n'y avais pas d'espace. Et je sais qu'il marche sous 2003. C'est pour ça que j'aimerai adapté mon 1er code pour qu'il fonctionne avec des espace dans le nom de l'onglet.

29/04/2015, 10h14
78chris

Bonjour

La gestion des TCD est différente entre 2003 et 2010.

Donc difficile de tester si tu n'as que 2003.

Je reviens à ma proposition initiale, la source peut-elle être déclarée en liste, auquel cas ce code devient inutile.
30/04/2015, 09h16
Mrfreeze117
Probablement, je ne suis pas très au fait de ce qu'on peut faire avec les listes. Je m'en suis pour ainsi dire jamais vraiment servi. Tu peux m'aiguillier vers un lien pour que je me renseigne concernant les listes avec les TDC? Merci

J'ai essayé ça aussi mais sans succès:
Code:

1 2 3 Dim plage As Range Set plage = Sheets("PPA SYNTHESES Priorité").Range("C4:J15") Sheets("TDCPPA").PivotTables("TDC prio").SourceData = plage
J'ai essayé l'enregistreur de macro sous 2003 ça donne:
Code:

1 2 ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _ "'PPA SYNTHESES Priorités'!R4C3:R18C10"
Mais ça ne fonctionne pas sous 2010
30/04/2015, 13h48
78chris

Bonjour

Si la classeur doit être utilisé dans les 2 versions, il peut être nécessaire de tester la version de l'application en cours d'exécution pour avoir un code qui exécute une action dans un cas et une autre dans l'autre cas...
30/04/2015, 13h53
Mrfreeze117

Oui je n'y avais pas pensé. Tu proposais plus haut quelque chose avec les listes, je n'ai rien réussi à trouver sur ce sujet. Comment on alimente un TDC avec une liste? Aurais-tu un lien ou un site sur lequel je puisse me renseigner?

Merci d'avance
30/04/2015, 16h50
78chris

Bonjour

Depuis 2007, les listes s’appellent tableaux (mauvaise traduction de table au sens base de données) et portent un nom, ce qui facilitent leur exploitation.

Sur 2003, on voit peu la différence entre une plage et une liste mais on obtient la même élasticité, indispensable aux TCD notamment.

Sur 2007 et + voir http://silkyroad.developpez.com/excel/tableau/ et http://www.excel-formations.fr/Trucs...Tableaux01.php

Sur 2003 j'ai trouvé cela http://www.coursbardon-microsoftoffi.../listes-12.htm
04/05/2015, 09h33
Mrfreeze117

Si je comprends bien, on ce passe de TDC.

Si c'est le cas, j'ai un problème car ma source change en nombre de ligne mais aussi en nombre de colonne. Et du coup si j'utilise des listes ça vas faire une vrais usine à gaz.
04/05/2015, 10h27
78chris

Bonjour

Non, tu ne comprends pas bien. Si tu relis mon poste #11 : "on obtient la même élasticité, indispensable aux TCD notamment".

La liste (2003) ou le tableau (2007-2013) permet à Excel de connaître en permanence la surface des données en hauteur comme en largeur (sur 2003 pour la largeur, il faut, de mémoire, déplacer la limite bleur, je ne crois pas qu'il le fasse tout seul comme avec le tableau).

A partir du moment où cette surface est automatiquement gérée, la source du TCD évolue en conséquence de façon transparente, sous réserve de créer le TCD après avoir mis sous forme de liste où d'en avoir redéfini la source s'il existait déjà.
04/05/2015, 10h42
Mrfreeze117

J'ai réussi à alimenter mon TDC avec une liste.

Par contre ma liste ne se redimensionne pas toute seul lorsque que j'augmente le nombre de ligne

Je sais pas si le fait que ma liste viennent d'un autre TDC pause un problème
04/05/2015, 10h51
Mrfreeze117

J'utilise Excel 2010 l'onglet formule "définir un nom", "gestionnaire de noms"
04/05/2015, 11h15
Mrfreeze117

J'ai trouvé ce que tu disais la définition d'un tableau. ça marche très bien pour une feuille normale.
Par contre je n'y arrive pas sur un TDC.

J'ai un TDC avec une colonne en plus qui ne lui appartient pas (colonne de calcule) mais je définie le tableau avec la colonne en plus. Mais je n'arrive pas a retrouver mon Tableau.
04/05/2015, 12h27
78chris

RE

Si je comprends bien, depuis le début on parle d'une source de TCD combinant un TCD et des formules dans une colonne juxtaposée !

Si oui, que d'échanges pour un problème mal défini au départ...

Les listes et tableaux ne peuvent se superposer à un TCD... et d'autre part la source d'un TCD doit obéir à certaines règles...

Il serait bien de reposer clairement ton cas...
04/05/2015, 13h06
Mrfreeze117

Oui ma source est un TDC c'est pour cela qu'a la base je voulais définir ma source en dure avec les cellules comme ça:

Code:

Sheets("TDCPPA").PivotTables("TDC prio").SourceData = "'PPA SYNTHESES Priorités'!R4C2:R29C10"

Ce qui marche très bien si mon nom d'onglet ne comporte pas d'espace hors ici mon nom d'onglet contient des espaces d'où les '. Mais Les ' ne marche pas et je ne comprends pas pourquoi.

Ma source est du style un TDC variant en nombre de ligne et colonne +une colonne à la fin où il y a un calcul d’éléments du TDC .

Donc est -il possible avec mon code d'inclure des espaces dans les noms d'onglet? Sinon il faut que je trouve une autre méthode pour arriver à alimenter mon TDC.
04/05/2015, 13h12
Mrfreeze117
J'ai essayé 3 codes:

un que j'utilise déjà sans espace:

Code:

Sheets("TDCPPA").PivotTables("TDC prio").SourceData = "'PPA SYNTHESES Priorités'!R4C2:R29C10"

Mais du coup ne fonctionne pas avec des espaces

un avec enregistreur de macro sous 2010:
Code:

1 2 3 Sheets("TDCPPA").PivotTables("TDC prio").ChangePivotCache ActiveWorkbook.PivotCaches _ .Create(SourceType:=xlDatabase, SourceData:= _ "PPA SYNTHESES Priorités!R4C3:R26C10")
Ne marche pas sous 2003

un avec enregistreur sous 2003:
Code:

1 2 ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _ "'PPA SYNTHESES Priorités'!R4C3:R18C10
Ne marche pas sous 2010 et je ne peux pas choisir le TDC que j'actualise.
04/05/2015, 14h03
78chris
Re

Reste la possibilité de définir ta source avec un nom associé à une formule nommée qui, elle, marche dans les 2 versions, du type :

Code:

=DECALER('PPA SYNTHESES Priorités'!$C$4;0;0;NBVAL('PPA SYNTHESES Priorités'!$C:$C)-1;5)

à adapter si tu utilises la notation LC et en fonction de :
- de la première colonne du TCD (dans tes exemples c'est tantôt C2, tantôt C3)
- pour le NBVAL, de la colonne pleine pouvant servir de repère, de la présence du total général ou non dans le TCD, de ce qui se trouve au dessus du titre que tu situe en ligne 4
- de la largeur en nombre de colonnes
04/05/2015, 14h09
Mrfreeze117

J'étais justement en train de réfléchir là dessus

Code:

Names("TestTDCprio").RefersToR1C1 = "='PPA SYNTHESES Priorités'!R4C3:R29C10"

Voici ce que j'ai fais et qui fonctionne:

Code:

1
2
3
    Names("TCD_Prio").RefersToR1C1 = "='PPA SYNTHESES Priorités'!R4C3:R" & DerLiTDC1 - 1 & "C10"
    ActiveSheet.ChartObjects("Graphique 1").Activate
    Sheets("TDCPPA").PivotTables("TDC prio").PivotCache.Refresh

Merci de ton aide

Fuseau horaire GMT +2. Il est actuellement 16h57.