Discussion :

[had4789]

Bonjour,

Je voudrais renommer les titres des colonnes d'un TCD. J'ai comme titre actuel "Nombres de 2014", je voudrais avoir à la place la valeur M1 de ma feuille "SaveExport")

J'ai tenter le code suivant mais il ne marche pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
    With ActiveSheet.PivotTables("Mon TCD").PivotFields(SecondDataField)
    .Orientation = xlDataField
    .Function = xlSum
    .Position = 2
    .Name = Sheets("SaveExport").Range("M1")

Merci par avance

[Philippe Tulliez]

Bonjour,
S'il y a une seule agrégation, tu peux utiliser l'index 1 de la collection PivotItems de DataPivotField
Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub RenommerTitrePivotTable()
 Dim pvt As PivotTable
 Set pvt = Feuil3.PivotTables(1)
 With pvt
 .DataPivotField.PivotItems(1).Caption = "Somme de CA" ' Si une seule agrégation
 .CompactLayoutRowHeader = "Titre Ligne"
 .CompactLayoutColumnHeader = "Titre Colonne"
 End With
End Sub

[had4789]

Bonsoir,

Qu'est-ce que tu appels une agrégation?

Ce que je veux c'est que lorsque je crée mon TCD avec ma macro les titres des colonnes de mon gcd correspondent au titre des colonnes dans ma base de donné de départ.

Par exemple j'ai dans ma base de donné dans la cellule F1 la valeur "2014" et dans le reste de la colonne F les valeurs correspondantes pour cette année.

Dans mon TCD je n'ai pas la valeur "2014" mais "Nombre de 2014". Ce que je veux c'est avoir "2014" à la place de "Nombre de 2014".

J'aimerai de plus récupérer cette information via la position relative de ma cellule à savoir F1 car les années peuvent changer.



Merci par avance