Discussion :

[algerien73]

Bonsoir

J'ai un fichier avec plusieurs onglets que je voudrais compiler dans l'onglet CONSO11, en fait l'onglet CONSO 2011 est un copier/coller des données des autres onglets
Bref je cherche un moyen automatisé de faire cette manipulation

Merci pour votre aide

[Runsh63]

Salut !

Avec le code ci-dessous, ça devrait fonctionner

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Compile_sheets()
 
Application.ScreenUpdating = False
Dim NoS As Byte
 
With Sheets(1)
    .Range("A1:AO1").EntireColumn.Delete
End With
 
For NoS = 2 To 7
    With Sheets(NoS)
        .Range("A3:" & .Range("A3").SpecialCells(xlCellTypeLastCell).Address).Copy Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
    End With
Next
 
With Sheets(1)
    .Range("A1:AO1") = Array("ANNEE_DE_REF", "CTR_PROFIT_FINAL", "CLIENT_FINAL", "TEXT1_CLIENT", "TYPE_RETR", "TEXT2_TYPE_RETR", "ARTICLE_HIER", "TEXT3_ARTICLE", "CDISTR_FINAL", "TEXT4_CDISTR", "SS_CDISTR", "TEXT5_SS_CD", "GRPE_VEND", "TEXT6_GV", "CODE_SO", "TEXT7_CODE_SO", "CURRENCY", "CA_01_N_1", "CA_02_N_1", "CA_03_N_1", "CA_04_N_1", "CA_05_N_1", "CA_06_N_1", "CA_07_N_1", "CA_08_N_1", "CA_09_N_1", "CA_10_N_1", "CA_11_N_1", "CA_12_N_1", "CA_01_N", "CA_02_N", "CA_03_N", "CA_04_N", "CA_05_N", "CA_06_N", "CA_07_N", "CA_08_N", "CA_09_N", "CA_10_N", "CA_11_N", "CA_12_N")
End With
 
Application.ScreenUpdating = True
 
End Sub

Tiens-moi au courant, comme je n'en suis encore qu'au balbutiement côté programmation en VBA...

[algerien73]

cela fonctionne tres bien !!

merci à toi