Discussion :

[mayga]

Bonjour,
Lorsque j'actualise les données de mon TCD, le format que j'avais précédemment appliqué à mes cellules ("#,##0") est perdu, l'affichage revient à son état d'origine.
J'aimerais créer une procédure pour appliquer le format personnalisé lors de l'actualisation des données, mais en vain.

J'ai essayé d'appliquer .numberformat à différents objets (PivotField, PivotItem, Pivottable, datarange) mais soit j'obtiens un message d'erreur soit l'affichage ne change pas.

Si quelqu'un peut m'aider merci d'avance.

[78chris]

Bonjour

Les formats doivent être appliqués aux champs et non aux cellules : exemple

Code :

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

1
2
3
With ActiveSheet.PivotTables("Tableau croisé dynamique2").PivotFields("ca")
        .NumberFormat = "# ##0 €"
    End With

[mayga]

Bonjour,
Merci pour la réponse.
J'ai déjà essayé cette méthode mais j'obtiens un message d'erreur (erreur d'exécution 1003)

Je rappelle que je suis sous Excel 2003, peut être que ça a une importance.

[78chris]

Bonjour

Ce code marche sur 2003. Ton erreur vient d'un nom incorrect sans doute du TCD ou du champ.

As-tu vérifié en mode debug ce qui coince ?

[mayga]

Bonjour,
Le nom du TCD est correct, le nom du champ aussi.
Par contre peut être que la conception de mon TCD est la cause du problème.
Lors de la création du TCD, dans la zone Disposition j'ai glissé mes champs dans la zone DONNEE, j'ai créer mon TCD et ensuite dans ma feuille de calcul j'ai rippé "Données" vers la zone "COLONNE", Excel a créer des colonnes avec en tête "Somme de Nom du champ", et ce sont ces cellules dont je veux modifier le format.
Il s'agit en fait maintenant de modifier des PivotItem je pense.
Je ne sais pas si je suis assez clair.

Est ce que je peux poster un exemple de mon TCD ?

[mayga]

Ok, j'ai réussi, mais il faut que je rentre PivotFields("Somme de ...").

Ce qui m'a induit en erreur c'est que les colonnes "Somme de..." ne sont pas énumérées dans la liste des Pivotfields du TCD (.count)
Donc si je veux modifier mes colonnes sans connaître le nom au départ, je doit tout d'abord trouver le caption de mes PivotItems de "Données" pour les transférer dans les PivotFields (ex : PivotFields(PivotFields("Données).PivotItems(1).caption).NumberFormat =).

Merci encore pour les réponses!