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
33
34
35
36
37
38
39
40
| Sub ExportCaisse()
Dim F1 As Worksheet, F2 As Worksheet
Dim Tablo, i As Long
Dim x2 As Integer
Dim x1 As Integer
Dim x05 As Integer
Set F1 = Sheets("MARS")
Set F2 = Sheets("Compta")
THdr = F1.Range("A2", "Z" & F1.Range("A" & Rows.Count).End(xlUp).Row).Value2
Set dict = CreateObject("scripting.dictionary")
dict.Add dict.Count, Array("Date", "code journal", "compte", "débit", "crédit", "Libellé pièce") 'les titles
For i = 1 To UBound(THdr) 'IMPORTANT, CHAQUE LIGNE DOIT AJOUTER LE MÊME NOMBRE D'ELEMENTS DANS "ITEMS" = 8 !!!
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "44572000", "", THdr(i, 4), "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "7072000", "", THdr(i, 4 \ 1.2), "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "44571000", "", THdr(i, 6), "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "7071000", "", THdr(i, 6 \ 1.1), "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "44571550", "", THdr(i, 8), "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "7070550", "", THdr(i, 8) \ 1.055, "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "5801000", THdr(i, 14), "", "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "5802000", THdr(i, 16), "", "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "5803000", THdr(i, 15), "", "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "411CREDIT", THdr(i, 17), "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "411AVOIR", THdr(i, 18), THdr(i, 19), "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "411AVOIR", , THdr(i, 19), THdr(i, 18), "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "467CADHOC", THdr(i, 22), "", "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "467CADEOS", THdr(i, 22), "", "CENTRALISATION CAISSE")
dict.Add dict.Count, Array(THdr(i, 1), ("CS"), "467BONACHAT", THdr(i, 24), "", "CENTRALISATION CAISSE")
Next i
arr = Application.Index(dict.items, 0, 0)
F2.Cells.ClearContents
With F2.Range("A1").Resize(UBound(arr), UBound(arr, 2))
.Value = arr
.EntireColumn.AutoFit
.Sort .Range("G1"), xlAscending, Header:=xlYes
End With
End Sub |
