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
|
nIdx est un entier=xlsOuvre(SC_SelecteurFichier.SAI_FIC)
nNbligne est un entier=xlsNbLigne(nIdx)
SAI_NbrEnr=nNbligne
nVald est un entier=0
nVald=100/SAI_NbrEnr
Arrondi(nVald)
i est un entier=2
JAUGE_Fuel_H=nVald
TANTQUE i<=nNbligne
ChargeEff.chargeF=xlsDonnée(nIdx,i,2,Vrai)
ChargeEff.date=xlsDonnée(nIdx,i,3,Vrai)
ChargeEff.mtdepen=xlsDonnée(nIdx,i,4,Vrai)
ChargeEff.benef=xlsDonnée(nIdx,i,5,Vrai)
ChargeEff.Cod=xlsDonnée(nIdx,i,6,Vrai)
HAjoute(ChargeEff)
TableAjouteLigne(TABLE_aprov,xlsDonnée(nIdx,i,2,Vrai),xlsDonnée(nIdx,i,3,Vrai),xlsDonnée(nIdx,i,4,Vrai),xlsDonnée(nIdx,i,5,Vrai),xlsDonnée(nIdx,i,6,Vrai))
SAI_Enrecup=SAI_Enrecup+1
i++
JAUGE_Fuel_H=JAUGE_Fuel_H+nVald
Multitâche(20)
//TableSupprime(TABLE_paiement)
FIN |
Partager