Microsoft 365 Problème de zéro dans une TCD

PORCHER · 10 Janvier 2023

Bonjour et bonne année,
Tableau croisé dynamique Certaines (sommes de) valeurs s'affichent en 0
En faisant ceci ;

VB:

Range("F2:G" & Range("F65536").End(xlUp).Row).Select
For Each c In Selection
        If c.Value <> 0 Then
            c.Value = CDbl(c)
            c.NumberFormat = "#,##0.00"
            c.Replace ",", "."
        End If
    Next c

Certaines sommes de valeurs passe a 1973,00 au lieu de 19.73
pourriez-vous m'aider..... Merci

Gégé-45550 · 10 Janvier 2023

Bonjour,
avez-vous testé avec

VB:

c.NumberFormat = "# ##0.00"

?
Cordialement,

PORCHER · 10 Janvier 2023

Merci Gégé, cela fait deux jours que je suis dessus et pas de résultat
J'ai normalement des chiffres dans ma colonne Débit, feuille " MesComptes" comme 19.73 € ect..
Dans le TCD crée dans la colonne "F" j'ai le Débit
avec c.NumberFormat = "# ##0.00" me donne 1973
avec c.NumberFormat = "#,##0.00" me donne 1973.00

Étiquettes de lignes Somme de Débit
CARREFOUR NEVERS 1973
CEREA 84
ELECLERC 22578.34
INTERMARCHÉ 4453
LIDL_MARZY 22219
PICARD 1499
(vide)
Total général 52806.34

Gégé-45550 · 10 Janvier 2023

PORCHER à dit:
Merci Gégé, cela fait deux jours que je suis dessus et pas de résultat
J'ai normalement des chiffres dans ma colonne Débit, feuille " MesComptes" comme 19.73 € ect..
Dans le TCD crée dans la colonne "F" j'ai le Débit
avec c.NumberFormat = "# ##0.00" me donne 1973
avec c.NumberFormat = "#,##0.00" me donne 1973.00

Étiquettes de lignes Somme de Débit
CARREFOUR NEVERS 1973
CEREA 84
ELECLERC 22578.34
INTERMARCHÉ 4453
LIDL_MARZY 22219
PICARD 1499
(vide)
Total général 52806.34

et en utilisant .NumberFormatLocal ?

PORCHER · 10 Janvier 2023

Merci Gégé, comme cela çà fonctionne mieux, je n'y avait pas pensé.
merci

chris · 10 Janvier 2023

Bonjour à tous

C'est une aberration de faire une boucle pour formater des cellules et plus encore des cellules de TCD : on formate le champ du TCD, pas les cellules sous-jacentes...

PORCHER · 12 Janvier 2023

Bonjour à tous
J'ai enfin trouvé la solution à mon problème
La voici :

VB:

 For X = 2 To Range("F" & Rows.Count).End(xlUp).Row
    Range("F" & X) = Replace(Range("F" & X), ".", ",") * 1
  Next X

J'ai du travailler mes neurones et sa marche.

Microsoft 365 Problème de zéro dans une TCD

PORCHER

XLDnaute Occasionnel

Gégé-45550

XLDnaute Accro

PORCHER

XLDnaute Occasionnel

Gégé-45550

XLDnaute Accro

PORCHER

XLDnaute Occasionnel

chris

XLDnaute Barbatruc

PORCHER

XLDnaute Occasionnel

Discussions similaires