1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
xlWorkSheetOne.Cells(axey, 1) = sqlDR(0)
xlWorkSheetOne.Cells(axey, 2) = sqlDR(1)
xlWorkSheetOne.Cells(axey, 3) = sqlDR(2)
xlWorkSheetOne.Cells(axey, 4) = sqlDR(3) & "/" & sqlDR(4)
xlWorkSheetOne.Cells(axey, 5) = FormatNumber(sqlDR(5), 2) + 1 - 1
xlWorkSheetOne.Cells(axey, 6) = FormatNumber(sqlDR(6), 2) + 1 - 1
xlWorkSheetOne.Cells(axey, 7) = FormatNumber(sqlDR(7), 2) + 1 - 1
xlWorkSheetOne.Cells(axey, 8) = FormatNumber(sqlDR(8), 2) + 1 - 1
' Le +1 -1 attribue le format nombre dans la cellule
xlWorkSheetOne.Cells(axey, 9) = sqlDR(9)
xlWorkSheetOne.Cells(axey, 10) = sqlDR(10)
axey = axey + 1
xlWorkSheetOne.Cells(axey, 5) = "=+somme(e" & debuty & ":e" & (axey - 1) & ")"
xlWorkSheetOne.Cells(axey, 6) = "=+somme(f" & debuty & ":f" & Trim((axey - 1)) & ")"
xlWorkSheetOne.Cells(axey, 7) = "=+somme(g" & debuty & ":g" & (axey - 1) & ")"
xlWorkSheetOne.Cells(axey, 8) = "=+somme(h" & debuty & ":h" & (axey - 1) & ")"
axey = axey + 1
xlWorkSheetOne.Cells(axey, 6) = "=+e" & (axey - 1) & "-f" & (axey - 1)
xlWorkSheetOne.Cells(axey, 8) = "=+h" & (axey - 1) & "-g" & (axey - 1)
axey = axey + 1 |
Partager