Microsoft 365 Problèmes unités des étiquettes dans graphique

[sylvainforce]

Bonjour à vous,

Dans une feuille la feuille TB Adhérent, lorsque je change le code d'une entreprise, j'ai une macro qui s'exécute pour actualiser 3 tableaux croisés dynamiques.

Sur un des tableaux annexes à un tcd (cf en bas dans la pièce jointe), les données sont en euros.

Sur ce tableau, j'ai un graphique camembert qui est relié (cf pièce jointe) et qui s'actualise donc à chaque fois que je change le code de l'entreprise.

Le problème est que les étiquettes ce mettent en dollars ! Et les données dans le tableau sont toujours en euros

Quand je refais le graphique, les données sont bien en euros. Quand je change le code de l'entreprise et que le le graphique s'actualise, les étiquettes repassent en dollars.

Sauriez-vous pourquoi et quoi faire ?

Parfois sur certains codes, les étiquettes du camembert restent bien en euros.

Mon fichier est trop volumineux (5mo) même en réduisant le nombre de donnée de 95%.
Je le mets donc à disposition anonymisé en transfert : https://fromsmash.com/etiquettedonneessylvain

Merci beaucoup
Sylvain Gerbaud

 

[M12]

Bonjour,
Il suffit de mettre la colonne N au format monaitaire en €

 

[sylvainforce]

Bonjour,
Il suffit de mettre la colonne N au format monétaire en €

Bonjour M12,
Merci et en effet cela fonctionne.
Mais lorsque je sélectionne une nouvelle clinique dans la liste déroulante en haut, cela revient en dollar dans le camembert. Il faut alors que je resélectionne la colonne N et la remette en monétaire.
Pourquoi cela ?
Merci encore pour votre aide
Sylvain

 

[Efgé]

Bonjour à tous

Chez moi le problème n'apparaît pas.
Une idée en l'air:
Dans ton tcd le formt de nombre du champ "Somme de Montant vendu HT" est Comptabilité, essai de le passer à Monétaire.
On ne sait jamais
Cordialement

 

[sylvainforce]

Bonjour à tous

Chez moi le problème n'apparaît pas.
Une idée en l'air:
Dans ton tcd le formt de nombre du champ "Somme de Montant vendu HT" est Comptabilité, essai de le passer à Monétaire.
On ne sait jamais
Cordialement

Bonjour Efgé,
Merci pour ta réponse.
J'ai mis le tcd en format monétaire, 0 décimale et en €. Egalement les données du tableau source du camembert à côté du tcd.
C'est pareil. Dès que je change le code clinique en haut, cela remet des dollars dans le camembert.
Quand je vérifie le format des nombres dans le tcd, c'est toujours en monétaire. quand je fais ok pour revenir, les données repassent en € dans le camembert.
C'est dingue ce truc

 

[M12]

Bonjour à tous
Teste ceci dans la macro

Sub LISTESYNCTCD2()
'
' LISTESYNCTCD2 Macro
'

'
    ActiveSheet.PivotTables("TCD CA").PivotFields("Code clinique").ClearAllFilters
    ActiveSheet.PivotTables("TCD CA").PivotFields("Code clinique").CurrentPage = ActiveSheet.Range("L4").Value
    ActiveWindow.SmallScroll Down:=72
    ActiveSheet.PivotTables("TCD Cat Food").PivotFields("Code clinique"). _
        ClearAllFilters
    ActiveSheet.PivotTables("TCD Cat Food").PivotFields("Code clinique"). _
        CurrentPage = ActiveSheet.Range("L4").Value
    ActiveWindow.SmallScroll Down:=24
    ActiveSheet.PivotTables("TCD Petfooder").PivotFields("Code clinique"). _
        ClearAllFilters
    ActiveSheet.PivotTables("TCD Petfooder").PivotFields("Code clinique"). _
        CurrentPage = ActiveSheet.Range("L4").Value
    Columns("N:N").NumberFormat = "#,##0 €"
    
End Sub

 

[sylvainforce]

Bonjour à tous
Teste ceci dans la macro

Sub LISTESYNCTCD2()
'
' LISTESYNCTCD2 Macro
'

'
    ActiveSheet.PivotTables("TCD CA").PivotFields("Code clinique").ClearAllFilters
    ActiveSheet.PivotTables("TCD CA").PivotFields("Code clinique").CurrentPage = ActiveSheet.Range("L4").Value
    ActiveWindow.SmallScroll Down:=72
    ActiveSheet.PivotTables("TCD Cat Food").PivotFields("Code clinique"). _
        ClearAllFilters
    ActiveSheet.PivotTables("TCD Cat Food").PivotFields("Code clinique"). _
        CurrentPage = ActiveSheet.Range("L4").Value
    ActiveWindow.SmallScroll Down:=24
    ActiveSheet.PivotTables("TCD Petfooder").PivotFields("Code clinique"). _
        ClearAllFilters
    ActiveSheet.PivotTables("TCD Petfooder").PivotFields("Code clinique"). _
        CurrentPage = ActiveSheet.Range("L4").Value
    Columns("N:N").NumberFormat = "#,##0 €"
   
End Sub

Champion M12 !
Ca à l'air de bien fonctionner.
Je commençais aussi à me dire qu'il fallait passer par là.
Merci beaucoup pour le temp consacré et bonne continuation
Sylvain