Source données TDC

**Mrfreeze117** · 27/04/2015, 13h15

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Fonctionne.

Pouvez-vous m'aider?

Merci d'avance

**78chris** · 27/04/2015, 13h49

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

**Mrfreeze117** · 27/04/2015, 15h09

J'ai essayé ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

mais ça me fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**78chris** · 27/04/2015, 15h31

Re

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

**Mrfreeze117** · 29/04/2015, 10h01

ça donne ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**78chris** · 29/04/2015, 10h14

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.

**Mrfreeze117** · 30/04/2015, 09h16

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    ActiveSheet.PivotTableWizard SourceType:=xlDatabase, SourceData:= _
        "'PPA SYNTHESES Priorités'!R4C3:R18C10"

Mais ça ne fonctionne pas sous 2010

**78chris** · 30/04/2015, 13h48

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

**Mrfreeze117** · 30/04/2015, 13h53

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

**78chris** · 30/04/2015, 16h50

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

**Mrfreeze117** · 04/05/2015, 09h33

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.

**78chris** · 04/05/2015, 10h27

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

**Mrfreeze117** · 04/05/2015, 10h42

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

**Mrfreeze117** · 04/05/2015, 10h51

J'utilise Excel 2010 l'onglet formule "définir un nom", "gestionnaire de noms"

**Mrfreeze117** · 04/05/2015, 11h15

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.

**78chris** · 04/05/2015, 12h27

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

**Mrfreeze117** · 04/05/2015, 13h06

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**Mrfreeze117** · 04/05/2015, 13h12

J'ai essayé 3 codes:

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

**78chris** · 04/05/2015, 14h03

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=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

**Mrfreeze117** · 04/05/2015, 14h09

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Source données TDC [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager