Tcd

bonsoir à tous,

est il possible de se créer une mise en page pour sois:

je m'explique, ayant des TCD qui se ressemblent beaucoup, j'aimerai que à chaque fois que je crée un Tcd mes colonnes fassent automatiquement 15, et que les lignes de titres fassent 30.

merci pour votre aide

Martial

bonjour

duplique l'onglet qui contient un joli TCD

note : pourquoi es-tu amené à créer autant de TCD ?

normalement on en crée un à 3 ou 4

ensuite on les actualise

Bonjour martialjade , jmd

J'ajoute que je crée mes TCD manuellement, si besoin en dimensionnant les colonnes, et je coche ou décoche l'option d'ajustement auto des colonnes. Ce faisant, lors de l'actualisation (par macro dans certains cas) la mise en page ne bouge pas.

Bonjour

Tu peux créer un modèle de feuille avec les largeur de colonnes que tu veux et les hauteur de ligne que tu veux : fichier xltx d'un ou n onglets à stocker dans le dossier des modèles.

Il suffit donc d'ajouter un onglet de ce modèle à ton classeur avant d'y créer le TCD.

Dans 365, il y a quelques options par défaut pour les TCD mais sauf erreur de ma part cela ne concerne pas les tailles de lignes et colonnes.

Bonjour,

Ci-dessous, une procédure à adapter.

Cdlt.

Public Sub XXX()
Dim pt As PivotTable
    For Each pt In ActiveSheet.PivotTables
        pt.TableRange1.ColumnWidth = 15
        pt.ColumnRange.RowHeight = 30
        'ou
        'pt.DataLabelRange.RowHeight = 30
    Next pt
    'Rappel : largeur colonne et hauteur ligne par défaut
    '.UseStandardWidth = True
    '.UseStandardHeight = True
End Sub