Discussion :

[Denis_67]

Bonjour,

la question est dans le titre.

pour l'instant je modifie champ par champ format millier et 0 décimales.

je n'ai pas trouvé dans le descriptif pourtant complet de Silkyroad
http://silkyroad.developpez.com/excel/tcd/


D'ailleurs en lisant ce tuto j'ai compris l'usage de la fonction lire donnee que j'avais désactivé.
par contre peut-on copier la formule incrementalement pour ajouter une colonne de calcul à l'exterieur deu tcd ?

Merci
Denis

[78chris]

Bonjour

Non à la première question : c'est un peu comme un base de données on structure tout et cela peut prendre un peu de temps mais après cela sert des années sans retouches...

Oui à la seconde question : selon la structure du TCD, la partie à rendre variable le sera par diverses solutions. Sans exemple précis difficile de l'être.

A noter que je vois souvent des colonnes ajoutées à côté des TCD alors que le calcul est faisable dans le TCD : donc bien vérifier l'utilité au cas par cas.

[Denis_67]

Merci Chris,


Mais je n'utilise pas les TCD comme une BDD mais comme un outil de travail quotidien, je génère des extractions variées tout au long de la journée, et dois rechanger les formats.

J'ai déjà des macros personnelles pour des unites varies comme KG, M² etc....

J'essaie d'en faire une pour un champ TCD, mais c'est sans effet le debug identifie bien le nom du tcd et du champ, mais n'applique pas le format.
Alors que la macro enregistrée automatiquement fonctionne auriez vous une idée, serait-ce une question de portée des variables, j'ai essayé de les declarer en public dans mon classeur perso mais ça ne marche pas quand même ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Sub Format_champ_TCD()
'
' Cette macro identifie le nom du champ de la cellule active et applique la mise en forme nombre
' avec séparateur de milier et 0 décimales
'
Dim TCD As String
Dim Champ_TCD As String
 
ActiveCell.Select
TCD = ActiveCell.PivotCell.Parent 'nom du TCD
Champ_TCD = ActiveCell.PivotCell.DataField ' nom du champ
 
    With ActiveSheet.PivotTables(TCD).PivotFields(Champ_TCD).NumberFormat = "# ##0"
    End With
End Sub

(Pour la question 2, bien sûr j'utilise champs et valeur calculés), mais parfois notamment pour les calcul de % cumulés on s'en sort mieux à l'exterieur du tableau. or lorsqu'on tire par copie le long de la colonne la formule liredonnee, celle-ci ne s'incrémente pas.)

merci
Denis

[78chris]

RE

Ta macro marche chez moi.

Tu as mal compris ma remarque : je ne compare pas le TCD à une BD pour le contenu mais pour le paramétrage.

Si je comprends bien tu recrées les TCD au lieu de les faire vivre... ce qui n'est pas forcément la meilleure approche.

Pour les formules LIREDONNEES comme déjà dit il faut rendre variable au moins un des éléments indiqués en dur pour pouvoir la tirer : sans connaitre la structure de ton TCD, je ne peux te donner la formule...

[Denis_67]

C'est étrange, meme après redémarrage du PC et en mettant le module dans le classeur du TCD, ça ne march epas chez moi.

(pour la discussion , les requêtes sont différentes avec des champs différents, s'il s'agit de metre à jour des données, bien sur un refresh des datas suffit).

Denis

[jerome.vaussenat]

Salut,

Une idée C..

Mais pour faire ta mise en forme, pourquoi ne pas passer tout simplement par la commande Format / Cellule en ayant tout sélectionné ?
Au pire, çà te fait :
CTRL +A
CTRL +1 et dans l'onglet Format / nombre tu mets ce que tu veux.

Non ???