1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Quote"), _
"Nombre de Billed", xlCount
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddDataField ActiveSheet. _
PivotTables("Tableau croisé dynamique1").PivotFields("Billed"), _
"Nombre de Quote", xlCount
Range("B13").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Nombre de Quote").Function = xlSum
ActiveWorkbook.ShowPivotTableFieldList = False
Range("B13").Select
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields( _
"Somme de Quote")
.NumberFormat = "# ##0,00\ [$-1]"
End With |
Partager