TCD - Centrer les Sommes du mois

Bonjour à tous,

Je travail sur un code VBA qui avec diverses données créer un TCD, il me reste un détail à paufiner,

Les chiffres de mon TCD ne sont pas alignées (CF Image 1)

IMAGE 1 :

Je voudrait qu'ils soit aligné de cette façon (CF Image 2)

IMAGE 2 :

Voici le morceau de code VBA qui s'occupe du champ "Date

        With .PivotFields("Date")
            .Orientation = xlColumnField
            .Position = 1
            .AutoGroup
            .Orientation = xlHidden
        End With

Quel faut il modifier pour justement centrer mes valeurs ?

Merci d'avance

Bonjour

On ne centre pas les nombres car cela perturbe la bonne appréciation des écarts.

D'ailleurs les formats Milliers et Comptabilité fournis de base par Excel ne le permettent pas.
Il décalent en revanche les montants du bord droit de la cellules, ce qui sur des montants de même taille, donne en effet proche du centrage.

Depuis le CE1 et les additions des nombres à 2 chiffres ou plus, on a appris à mettre les unités, sous les unités, les dizaines sous les dizaines, etc

Bonjour Chris,

Je comprend la logique,

Mais mes chiffres doivent être centrés, certains utilisateurs ont du mal à bien voir que tel ou tel montant est sous juin par exemple d'ou la volonté de faire un centrage

Chris,
Finalement, en te basant sur ta logique,

J'ai tout simplement aligné à droite les titres (janv, fév etc....)

        With .PivotFields("Date")
            ' Assurez-vous que le champ "Date" est bien dans la liste des champs de colonne
            .Orientation = xlColumnField
            .Position = 1
            .AutoGroup

            ' Itération sur toutes les étiquettes de champ de colonne pour aligner à droite
            Dim c As Range
            For Each c In .DataRange.Cells
                c.HorizontalAlignment = xlRight
            Next c

            .Orientation = xlHidden

            ' ' Itération sur les cellules de total général pour aligner à droite
            ' For Each c In .LabelRange.Cells
            '     If c.Value = "Total Général" Then
            '         c.HorizontalAlignment = xlRight
            '     End If
            ' Next c

        End With

(Le code commenté = Pour le total général mais il faut le mettre dans le bloc With du total général)

RE

Tu peux aussi prendre le style de TCD qui permet de mettre des lignes de séparation qui facilitent la lecture de chaque colonne