Re : Condition dans champ calculé TCD
Bonjour à tous,
Je me permets de relancer la discussion afin de vous demander si je peux arriver à mon résultat espéré en faisant un TCD par macro? En retravaillant des formules VBA trouvées sur plusieurs sites je suis parvenue à faire un premier jet comme ça :
Sub CreatePivot()
Dim objTable As PivotTable, objField As PivotField
ActiveWorkbook.Sheets("Register").Select
Range("A1").Select
Set objTable = Essai1.PivotTableWizard
Set objField = objTable.PivotFields("Type")
objField.Orientation = xlRowField
Set objField = objTable.PivotFields("Status")
objField.Orientation = xlRowField
Set objField = objTable.PivotFields("Contractor Reference Cost")
objField.Orientation = xlDataColumnField
objField.Function = xlSum
objField.NumberFormat = "$ #,##0"
Set objField = objTable.PivotFields("Contractor Final Cost Estimate ")
objField.Orientation = xlDataColumnField
objField.Function = xlSum
objField.NumberFormat = "$ #,##0"
Set objField = objTable.PivotFields("Last Version2")
objField.Orientation = xlPageField
End Sub
Mais je ne suis qu'une débutante en matière d'écriture de VBA donc je ne sais pas si ça va marcher et surtout comment intégrer des "Calculated Fields" avec des fonction IF? Quelqu'un aurait-il une explication/solution à me donner svp?
En vous remerciant par avance de votre aide!
Bonne journée
Bebe xl