Bonjour,
comment faire par un boucle for ou autre pour eviter d'écrir 400 lignes dans mon macro suivant :
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
23
24
25
26
27
28
29
30
31
32
 
Sub Mclasseur()
 
'
 
' Mclasseur Macro
 
'
 
 
 
'
 
    Workbooks.Add
 
    Selection.consolidate Sources:=Array( _
 
        "'C:\Users\user1\Desktop\classeurMacroEssai\[classeur1.xlsx]Feuil1'!R1C1:R3C2", _
 
        "'C:\Users\user1\Desktop\classeurMacroEssai\[classeur2.xlsx]Feuil1'!R1C1:R3C2", _
 
        "'C:\Users\user1\Desktop\classeurMacroEssai\[classeur3.xlsx]Feuil1'!R1C1:R3C2"), _
 
...........................................................................................
...........................................................................................
............................................................................................
 
        "'C:\Users\user1\Desktop\classeurMacroEssai\[classeur400.xlsx]Feuil1'!R1C1:R3C2"), _
 
        Function:=xlSum, TopRow:=False, LeftColumn:=False, CreateLinks:=False
 
End Sub
D'avance merci.