BoixosNois
XLDnaute Nouveau
fgjfjghjghj
Dernière édition:
FCbl.[E30].FormulaR1C1 = "='" & FSrc.Name & "'!RC*" & Prc & "/100"
FCbl.[E30].FormulaR1C1 = "='" & ECHEANCIER! & "'!RC[-5]*Prc.value /100"
Dim Prc AsVariant
FCbl.[E30].FormulaR1C1 = "='ECHEANCIER'!R" & Right$(FCbl.Name, 2) + 14 & "C5*" & Prc & "/100"
FCbl.[E30].FormulaR1C1 = "=OFFSET(ECHEANCIER!R14C5,R26C3,0)*" & Prc & "/100"
FCbl.[E30].Value = Feuil1.[E15:E38].Rows(NumSit).Value * Prc / 100
FCbl.[E30].Value = Feuil1.Cells(NumSit + 14, "E").Value * Prc / 100