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 |
Partager