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

sylvainforce · 20 Septembre 2021

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 · 20 Septembre 2021

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

sylvainforce · 23 Septembre 2021

M12 à dit:
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é · 24 Septembre 2021

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 · 24 Septembre 2021

Efgé à dit:
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 · 24 Septembre 2021

Bonjour à tous
Teste ceci dans la macro

VB:

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 · 24 Septembre 2021

M12 à dit:

Bonjour à tous
Teste ceci dans la macro

VB:

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

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

sylvainforce

XLDnaute Nouveau

M12

XLDnaute Accro

sylvainforce

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

sylvainforce

XLDnaute Nouveau

M12

XLDnaute Accro

sylvainforce

XLDnaute Nouveau

Discussions similaires