1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| 'Filtre élaboré pour obtenir matricules selon centre de coût sélectionné
Workbooks("Ctrl Gestion -SG- analyse par postes -0610.xls").Sheets("RUB2"). _
Columns("A:S").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"A1:A2"), CopyToRange:=Range(activecell, Cells(a, 2)), Unique:=False
'1ère ligne formules 2010
activecell.Offset(1, 1).Select
activecell.Formula = Application.VLookup(activecell.Offset(0, -2), Workbooks("Ctrl Gestion -SG- analyse par postes -0610.xls").Sheets("RUB2").Columns("A:S"), 2, False)
activecell.Offset(0, 1).Select
activecell.Formula = Application.VLookup(activecell.Offset(0, -2), Workbooks("Ctrl Gestion -SG- analyse par postes -0610.xls").Sheets("RUB2").Columns("A:S"), 3, False)
activecell.Offset(0, 1).Select
activecell.Formula = Application.VLookup(activecell.Offset(0, -3), Workbooks("Ctrl Gestion -SG- analyse par postes -0610.xls").Sheets("RUB2").Columns("A:S"), 5, False)
activecell.Offset(0, 1).Select
Selection = ""
activecell.Offset(0, 1).Select
activecell.Formula = Application.VLookup(activecell.Offset(0, -5), Workbooks("Ctrl Gestion -SG- analyse par postes -0610.xls").Sheets("RUB2").Columns("A:S"), 11, False) |
Partager