XL 2013 Fomat d'un tableau croisé dynamique

[Chrystel01]

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]

Bonsoir Christel01,

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

A+

 

[Chrystel01]

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]

Alors utilisez cette macro avec DisplayFormat :

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]

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]

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 :

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]

Bonjour job75 et bonjour à tous,

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

Excellente journée