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
|
Sub MacroTest
Dim ID as String
Dim Name as String
Dim Montant as Double
Dim tableau()
ReDim tableau(24, 2)
i = 0
For j = 1 to 25
ID = worksheets("TEST").cells(j,1)
Name = worksheets("TEST").cells(j,2)
Montant = worksheets("TEST").cells(j,3)
tableau(i, 0) = Format(ID, "General")
tableau(i, 1) = Format(Name, "@")
tableau(i, 2) = Format(Val(Montant), "0.00")
i = i+1
Next j
Worksheets(Resultat).Select
Range(Cells(3, 1), Cells(28, 3)) = tableau
End Sub |
Partager