[XL-2007] Boucle for en macro

Boucle for en macro

Bonjour,
comment faire par un boucle for ou autre pour eviter d'écrir 400 lignes dans mon macro suivant :

Code:

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.

Bonjour,

Je n'ai absolument pas testé mais c'est peut être un début de piste :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub Mclasseur()
 
    Dim Tbl(1 To 400) As String
    Dim I As Integer
 
    For I = 1 To 400
 
        Tbl(I) = "'C:\Users\user1\Desktop\classeurMacroEssai\[classeur" & I & ".xlsx]Feuil1'!R1C1:R3C2"
 
    Next I
 
    Workbooks.Add
 
    Selection.Consolidate Tbl(), xlSum, False, False, False
 
End Sub

Hervé.

Ca marche.
Merci beaucoup.