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
|
Dim osheet as WorkSheet, fsheet as Worksheet
Dim Ligne as integer
Dim lEnregsVides as collection
Dim myChamp as Champ
(.../...)
Set lEnregsVides = new collection
For i = 1 to ?????
osheet.Range("A" & i) = rsDonnees.Fields("xfo_fab")
osheet.Range("B" & i) = rsDonnees.Fields("revision")
osheet.Range("C" & i) = rsDonnees.Fields("id_xfo")
osheet.Range("D" & i) = rsDonnees.Fields("term_date")
osheet.Range("E" & i) = vMois
osheet.Range("F" & i) = CLng(varDonnees.Fields("std-cost-total"))
If osheet.Range("F" & i) = 0 Then
set myChamp = new Champ
myChamp.xfo_fab = osheet.Range("A" & i)
myChamp.revision= osheet.Range("B" & i)
myChamp.id_xfo = osheet.Range("C" & i)
myChamp.term_date = osheet.Range("D" & i)
myChamp.vMois = osheet.Range("E" & i)
myChamp.xfo_fab = 0
lEnregsVides.Add Item:=myChamp
End If
Next i
For i = 1 to lEnregsVides.Count
Set myChamp = lEnregsVides.Item(i)
fsheet.Range("A" & i) = myChamp.xfo_fab
fsheet.Range("B" & i) = myChamp.revision
fsheet.Range("C" & i) = myChamp.id_xfo
fsheet.Range("D" & i) = myChamp.term_date
fsheet.Range("E" & i) = myChamp.vMois
fsheet.Range("F" & i) = myChamp.xfo_fab
Next i
Set lEnregsVides = Nothing
Set myChamp = Nothing |
Partager