Discussion :

[ghiatou]

salut
s' il vous plaît pouvez-vous traduire ce code en rouge à la langue de VBA

Range("BA" & ligne).Value = "=SI(OU(ET(AE2<FIN.MOIS(AT2;2);AE2<>"");AUJOURDHUI()<FIN.MOIS(AT2;2);AUJOURDHUI()<B2;B2>FIN.MOIS(AT2;3));"";SI(ET(B2<FIN.MOIS(AT2;2);B2<=FIN.MOIS(AT2;3);AE2="");AUJOURDHUI()-FIN.MOIS(AT2;2);SI(ET(B2>FIN.MOIS(AT2;2);AE2="";AUJOURDHUI()>=B2;AUJOURDHUI()<=FIN.MOIS(AT2;3));AUJOURDHUI()-B2+1;SI(ET(B2>FIN.MOIS(AT2;2);AE2="";AUJOURDHUI()>=B2;AUJOURDHUI()>=FIN.MOIS(AT2;3));FIN.MOIS(AT2;3)-B2+1;SI(ET(B2<FIN.MOIS(AT2;2);AE2="";AUJOURDHUI()>=B2;AUJOURDHUI()>=FIN.MOIS(AT2;3));FIN.MOIS(AT2;3)-FIN.MOIS(AT2;2);SI(ET(B2<FIN.MOIS(AT2;2);AE2<FIN.MOIS(AT2;3));AE2-FIN.MOIS(AT2;2);SI(ET(B2>FIN.MOIS(AT2;2);AE2<FIN.MOIS(AT2;3));AE2-B2+1;SI(ET(B2<FIN.MOIS(AT2;2);AE2>FIN.MOIS(AT2;3));FIN.MOIS(AT2;3)-FIN.MOIS(AT2;2);SI(ET(B2>FIN.MOIS(AT2;2);AE2>FIN.MOIS(AT2;3));FIN.MOIS(AT2;3)-B2+1)))))))))"


​merci

[User]

Bonsoir,

Votre formule est trop complexe, regardez du côté des fonctions :

IIf(condition,valeur si vrai,valeur si faux) ou vraifaux

DateSerial(Année,Mois,Jour) ..

Day()..

Par exemple :

Day(DateSerial(2015,3,0)) renvoie 28 le dernier jour du mois de février 2015

Cdlt,