1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
|
Sheets("PROD").Select
range("D10").select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Janvier"")"
Range("D11").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Février"")"
Range("D12").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Mars"")"
Range("D13").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Avril"")"
Range("D14").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Mai"")"
Range("D15").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Juin"")"
Range("D16").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Juillet"")"
Range("D17").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Août"")"
Range("D18").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Septembre"")"
Range("D19").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Octobre"")"
Range("D20").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Novembre"")"
Range("D21").Select
ActiveCell.FormulaR1C1 = _
"=GETPIVOTDATA(""Total Conv Colis"",'BASE QTE'!R3C1,""Mois"",""Décembre"")" |
Partager