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
|
Public Sub CreationTableau()
Dim VarX As Long, i As Long, NbObjet As Long
Dim tab_entete() As String
NbObjet = WorksheetFunction.CountA(Sheet1.Columns(2)) - 1
ReDim tab_entete(NbObjet * 3 - 1)
VarX = 0
For i = 2 To Sheet1.Cells(Rows.Count, 2).End(xlUp).Row
If WorksheetFunction.CountIf(Range(Sheet1.Cells(1, 2), Sheet1.Cells(i - 1, 2)), Sheet1.Cells(i, 2).Value) = 0 And Sheet1.Cells(i, 2) <> "" Then
VarX = VarX + 1
tab_entete((VarX - 1) * 3) = Sheet1.Cells(i, 2).Value
tab_entete((VarX - 1) * 3 + 1) = ""
tab_entete((VarX - 1) * 3 + 2) = ""
Else
End If
Next i
Worksheets("test").Cells(2, 1) = "ITEM"
For i = 0 To NbObjet * 3 - 1
Worksheets("test").Cells(1, i + 2) = tab_entete(i)
Next i
For i = 0 To NbObjet - 1
Worksheets("test").Cells(2, i * 3 + 2) = "Quantite"
Worksheets("test").Cells(2, i * 3 + 2 + 1) = "Prix Unitaire"
Worksheets("test").Cells(2, i * 3 + 2 + 2) = "Total"
Next i
End Sub |
