azkatari | Salut,
j'ai les chiffres de 3 sites S1 S2 et S3 à consolider.
J'ai une copie du meme workbook pour chacun de ces sites.
apparemment l'outil Consolidate d'Excel ca a l'air d'etre plus qu'une prise de tete qu'autre chose, j'essayais de pondre une macro pour faire ca:
J'avais fait ca: est ce que je suis sur la bonne voie, ou y'a une autre méthode plus simple?
merchi 
Code :
- Sub consolider()
- Dim S1, S2, S3 As String
- Dim Sites, Pages As Variant
- Dim NumCol, NumLigne As Integer
- Path = "H:\My Documents\2007\"
- S1 = Path & "S1 2007.xls"
- S2 = Path & "S2 2007.xls"
- S3 = Path & "S3 2007.xls"
- Sites = Array("S1", "S2", "S3" )
- Pages = Array("W1","W2" )
- For NumCol = 3 To 14
- For NumLigne = 14 To 30
- For Each P In Pages
- Sheets(P).Select
- Cells(NumLigne, NumCol).Select
- ActiveCell.FormulaR1C1 = "=SUM("
- For Each S In Sites
- ActiveCell.FormulaR1C1 = "'" & S & "]" & P & "!R" & NumLigne & "C" & NumCol & " )"
- Next E
- Next P
- Next NumLigne
- Next NumCol
- End Sub
|
|
