Bonjour forum,

Je me demande s'il y a une erreur dans le code suivant:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci