bonjour a tous
tout d'abords je sais tres bien que l'on trouve ici et la des codes donnant la date de paques
mais je voudrais convertir en vba une formule qui fonctionne tres bien et je n'y arrive pas
la formule
un essai sans succes j'ai 5 ou 4 jours de trop a chaque fois selon les années= ARRONDI(DATE(B1;4;MOD(234-11*MOD(B1;19);30))/7;0)*7-6
si quelqu'un sait faire je prends
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 Sub testy() Dim x x = 234 - (11 * (2018 Mod 19)) x = (x Mod 30) / 7 x = Round((x * 7) - 6) x = Round(CLng(CDate(Round(x) & "/4/2018"))) MsgBox CDate(DateSerial(1900, 1, 1)) + x End Sub
Partager