duplique une macro sur plusieurs onglet d'un mme classeur
Bonjour,
je me lance dans la macro,
j'ai un fichier Excel de 224 Pages, je souhaiterai réaliser la même en forme sur tous les onglet et que le tout je compile dans 1 (onglet 'Liste)
vous en remerciant par avance, j'incère ci-dessous la macro que je souhaite faire tourner sur pour les onglet 1 a 224
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
| Sub Macro1()
'
'
'
Dim Classeur As Workbook
Set Classeur = ThisWorkbook
'
For Table = 1 To 224
Sheets("Table 1").Activate
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(14, 1), Array(23, 1), Array(45, 1)), _
TrailingMinusNumbers:=True
Columns("A:A").Select
Columns("A:A").EntireColumn.AutoFit
Sheets(Table).Range("A1:A2000").Copy Classeur.Sheets("Liste").Range("A100000").End(xlUp)
Sheets("Liste").Activate
Next Table
End Sub |
Merci par avnace
