XL 2013 Fomat d'un tableau croisé dynamique

Chrystel01 · 14 Février 2021

Bonjour,

Quand je colle un tableau croisé dynamique (collage valeur + format) je perds une partie de son format (zones en rouge ci-dessous)
Connaissez-vous svp un moyen de conserver ce format ?
Je vous remercie par avance

Chrystel

job75 · 15 Février 2021

Bonsoir Christel01, le forum,

c est la cellule étudiée dans le TCD.

c(1, 5) est la 5ème cellule à droite à partir de c.

Une solution plus générale et plus élaborée dans le fichier joint :

VB:

Sub Coller()
Dim col%, c As Range, i%
Application.ScreenUpdating = False
With Sheets("tcd").PivotTables(1).TableRange1
    col = .Columns.Count + 2
    .EntireColumn.Copy .EntireColumn.Cells(1, col) 'pour copier les largeurs des colonnes
    .Columns(col).EntireColumn.Resize(, .Columns.Count).Clear 'RAZ
    For Each c In .Cells
        c(1, col) = c
        c(1, col).Interior.Color = c.DisplayFormat.Interior.Color
        c(1, col).Font.Color = c.DisplayFormat.Font.Color
        c(1, col).Font.Bold = c.DisplayFormat.Font.Bold...

job75 · 14 Février 2021

Bonsoir Christel01,

Pourquoi collage valeur + format ? Collez tout et n'en parlons plus

A+

Chrystel01 · 14 Février 2021

Bonsoir job 75,

Je voudrais coller tout ...mais sans conserver le TCD pour pouvoir changer des éléments, ne pas conserver toutes les données associées la base associée au TCD...

job75 · 14 Février 2021

Alors utilisez cette macro avec DisplayFormat :

VB:

Sub Coller()
Dim c As Range, i%
For Each c In [A3:C12] 'plage à adapter
    c(1, 5) = c
    c(1, 5).Interior.Color = c.DisplayFormat.Interior.Color
    c(1, 5).Font.Color = c.DisplayFormat.Font.Color
    c(1, 5).Font.Bold = c.DisplayFormat.Font.Bold
    For i = 7 To 10
        If c.DisplayFormat.Borders(i).LineStyle <> xlNone Then c(1, 5).Borders(i).Weight = c.DisplayFormat.Borders(i).Weight
Next i, c
End Sub

Chrystel01 · 15 Février 2021

Bonsoir,

Merci beaucoup Job75 !
Pour que je puisse comprendre... Que signifie c(1, 5) = c ?
J'aurais pensé que cela correspondaitaux réf du 1er tableau mais apparemment pas ?
Merci d'avance

Chrystel

job75 · 15 Février 2021

Bonsoir Christel01, le forum,

c est la cellule étudiée dans le TCD.

c(1, 5) est la 5ème cellule à droite à partir de c.

Une solution plus générale et plus élaborée dans le fichier joint :

VB:

Sub Coller()
Dim col%, c As Range, i%
Application.ScreenUpdating = False
With Sheets("tcd").PivotTables(1).TableRange1
    col = .Columns.Count + 2
    .EntireColumn.Copy .EntireColumn.Cells(1, col) 'pour copier les largeurs des colonnes
    .Columns(col).EntireColumn.Resize(, .Columns.Count).Clear 'RAZ
    For Each c In .Cells
        c(1, col) = c
        c(1, col).Interior.Color = c.DisplayFormat.Interior.Color
        c(1, col).Font.Color = c.DisplayFormat.Font.Color
        c(1, col).Font.Bold = c.DisplayFormat.Font.Bold
        For i = 7 To 10
            If c.DisplayFormat.Borders(i).LineStyle <> xlNone Then c(1, 5).Borders(i).Weight = c.DisplayFormat.Borders(i).Weight
    Next i, c
End With
End Sub

A+

Chrystel01 · 15 Février 2021

Bonjour job75 et bonjour à tous,

Merci beaucoup !
C'est très clair et me sera très utile.

Excellente journée

XL 2013 Fomat d'un tableau croisé dynamique

Chrystel01

XLDnaute Occasionnel

Pièces jointes

job75

job75

XLDnaute Barbatruc

Chrystel01

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Chrystel01

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

Chrystel01

XLDnaute Occasionnel

Discussions similaires