Rapport de message :*
 

Re: Tableau dynamique croisé: Renommage dynamique des titres de colonnes

Titre du sujet : Re: Tableau dynamique croisé: Renommage dynamique des titres de colonnes
par chris le 21/03/2013 09:11:12

Bonjour

Si tu n'as pas besoin de filtrer sur le type, tu peux éventuellement sans macro
  • colorer tes chiffres 1 à 6 de la même couleur que le fond
  • masquer la ligne 4
  • insérer au dessus une ligne avec des recherchev

Sinon par macro avec la feuille du TCD active
Sub Titres()

Dim i As Integer
Dim Textes As Variant

Textes = ActiveWorkbook.Worksheets("Mode d'Emploi").Range("F61:F66")
For i = 1 To 6
    ActiveSheet.PivotTables(1).PivotFields("Type ").PivotItems(i + 1).Caption = Textes(i, 1)
Next i

End Sub