Discussion :

[bird007]

Rebonjour,

Au fait pour traduire ca en language pure VBA sans l'aide de l'enregistrement. on fait comment?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(Y$11<=DATE($Y$1;$AA$1;1);DECALER($X12;0;-($AA$1-MOIS(Y$11)));SI(ET($K12="S";$E12<=Y$11);$I12;SI(ET($H12>=Y$11;$E12<=Y$11);$I12;0)))

avec l'aide de l'enregistrement de macro ça donne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=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)))"

mais puisque je vais integrer ça dans une boucle for et ensuite while do , je voudrais qu'elle soit en language VBA excel pur


Merci

[mercatog]

Traduit d'abord cette formule en algorithme, le reste n'est que translation