Bonjour a tous ,

Voila j’aimerai bien comprendre cette macro car je devrais effectuer des modification .
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Public Sub DataExport(v0, v1, v2, v3, v4, v5, v6, v7, v8, v9, v10, v11, v12, v13, v14, v15, v16, v17, v18)
 
'-Data export-----------------------------------------------------------------------------------------------
'Export of order quantity
ActiveWorkbook.Worksheets("Results").Cells(7, v0).Value = v1 'quantity
 
'Export of process type
ActiveWorkbook.Worksheets("Results").Cells(8, v0).Value = v2 'nameprocess
 
''Export of toling type
ActiveWorkbook.Worksheets("Results").Cells(9, v0).Value = v3 'nametooling
 
'Export of delivery type
ActiveWorkbook.Worksheets("Results").Cells(10, v0).Value = v4 'namedelivery
 
'Export of studies price
ActiveWorkbook.Worksheets("Results").Cells(11, v0).Value = v5 'pricestudies
 
'Export of fixtures price
ActiveWorkbook.Worksheets("Results").Cells(12, v0).Value = v6 'pricefixtures
 
'Export of number of packaging boxes
ActiveWorkbook.Worksheets("Results").Cells(13, v0).Value = v7 'packagequantity
 
'Export of price of packaging boxes
ActiveWorkbook.Worksheets("Results").Cells(14, v0).Value = v17 'packagequantity
 
'Export of transport price of packaging boxes
ActiveWorkbook.Worksheets("Results").Cells(15, v0).Value = v18 'packagequantity
 
''Export of unit price
ActiveWorkbook.Worksheets("Results").Cells(16, v0).Value = v8 'priceunit
 
''Export of price augmentation is not omega3
ActiveWorkbook.Worksheets("Results").Cells(17, v0).Value = v9 'notomega3
 
'Export of price reduction if no grill
ActiveWorkbook.Worksheets("Results").Cells(18, v0).Value = v10 'nogrill
 
'Export of real unit price
ActiveWorkbook.Worksheets("Results").Cells(19, v0).Value = v11 'pricereal
 
''Export of total tooling price
ActiveWorkbook.Worksheets("Results").Cells(20, v0).Value = v12 'pricetooling
 
'Export of total order price
ActiveWorkbook.Worksheets("Results").Cells(21, v0).Value = v13 'pricetotal
 
'Export of order week number
ActiveWorkbook.Worksheets("Results").Cells(23, v0).Value = v14 'weekorder
 
'Export of number of weeks to fullfil order
ActiveWorkbook.Worksheets("Results").Cells(24, v0).Value = v15 'weektime
 
'Export of week number of delivery
ActiveWorkbook.Worksheets("Results").Cells(25, v0).Value = v16 'weekdelivery2
End Sub
Merci d'avance