1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub formule2()
Sheets("CA(PC)").Select
Range("E12").Activate
Dim ligne As Integer, colonne As Integer, CPT As Integer
CPT = 20
For ligne = 12 To Cells(Rows.Count, 1).End(xlUp).Row
For colonne = 31 To 78
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, CPT) = "=IF(R11C<=DATE(R1C25,R1C27,1),OFFSET(RC24,0,-(R1C27-MONTH(R11C))),IF(AND(RC11=""S"",RC5<=R11C),RC9,IF(AND(RC8>=R11C,RC5<=R11C),RC9,0)))"
Loop
CPT = CPT + 1
Next colonne
Next ligne
ActiveCell.Offset(0, CPT) = "=SUMIF(R12C10:R22C10,""o"",R12C25:R22C25)"
End Sub |
Partager