Tcd problematique
Bonjour à tous,
voila j'ai un petit souci avec le TCD, tout va bien sauf que : en fait il me met une somme dans etiquettes de lignes !!!!
Alors que pas du tout je veux seulement qu'il me fasse la somme de CA et Valeur. Je ne comprends pas car ce code est extrait d'un enregistrement MACRO...
Helpppppp pleasseee
Voici le code
Range("A5").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ActiveSheet.PivotTableWizard _
SourceType:=xlDatabase, _
SourceData:="National!R5C1:R17642C45", _
TableDestination:="TCD!R1C1", _
TableName:="MonTCD"
Sheets("TCD").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("MonTCD").PivotFields( _
"Racine KIL niveau2")
.Orientation = xlRowField
.Position = 1
End With
With ActiveSheet.PivotTables("MonTCD").PivotFields("Rég.")
.Orientation = xlRowField
.Position = 2
End With
With ActiveSheet.PivotTables("MonTCD").PivotFields( _
"Racine KIL niveau2")
.Orientation = xlRowField
.Position = 2
.PivotItems("#N/A").Visible = False
End With
ActiveSheet.PivotTables("MonTCD").AddDataField ActiveSheet. _
PivotTables("MonTCD").PivotFields("CA"), "Nombre de CA", _
xlCount
With ActiveSheet.PivotTables("MonTCD").PivotFields( _
"Nombre de CA")
.Caption = "Somme de CA"
.Function = xlSum
End With
ActiveSheet.PivotTables("MonTCD").AddDataField ActiveSheet. _
PivotTables("MonTCD").PivotFields("Valeur"), _
"Nombre de Valeur", xlCount
With ActiveSheet.PivotTables("MonTCD").PivotFields( _
"Nombre de Valeur")
.Caption = "Somme de Valeur"
.Function = xlSum
End With
Columns("B:C").Select
Selection.NumberFormat = "#,##0"
End Sub
Merci beaucoup...
Salut Barth,
J'ai répondu à l'une de tes demandes et j'ai été surpris de ne pas recevoir de réponse. J'ai alors été un peu regarder tes autres messages et j'ai vu que tu ne répondais pratiquement jamais aux membres qui interviennent gratuitement en ta faveur. Je trouve ça absolument impoli et contraire à la Charte de ce Forum dont je te conseille vraiment de relire le contenu.
Explications et règles à respecter
Cordialement.