traduire une formule en vba

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

Citation:

---

= ARRONDI(DATE(B1;4;MOD(234-11*MOD(B1;19);30))/7;0)*7-6

---

un essai sans succes j'ai 5 ou 4 jours de trop a chaque fois selon les années

Code:

---

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

---

si quelqu'un sait faire je prends

Bonjour,

Je te propose d'aller sur la cellule où il y a ta formule, de lancer l’enregistreur de macros, d'aller sur la cellule, modifier ta formule en ajoutant et supprimant une parenthèses à la fin et de faire entrée.

L'enregistreur te donneras la formule en VBA;)

Voici la formule que je trouve en VBA

Code:

---

ActiveCell.FormulaR1C1 = "= ROUND(DATE(R[-2]C[1],4,MOD(234-11*MOD(R[-2]C[1],19),30))/7,0)*7-6"

---

Bonjour,

A tester

Code:

---

1 2 3 4 5 6 7

Sub testy() Dim x x = (234 - 11 * ([B1] Mod 19)) Mod 30 d = DateSerial([B1], 4, x) / 7 d = ((Round(d, 0) * 7) - 6) MsgBox CDate(d) End Sub

---

Cdlt

bonjour Remy.A
merci pour le retour mais tu a mal compris ma question
je ne veux pas le formula en vba , je veux le calcul en pur vba comme j'ai tenté de la faire dans la demo

des idées??? de ce qui ne va pas dans mon code

bonjour ARTURO83
non ca ne vas pas pour 2019 ,2020 etc.....

autant pour moi ARTURO83 ca match :plusser:

RE
je reproduit donc la formule en dur vba et j'en fait une petite fonction toute simple

Code:

---

1 2 3 4 5 6 7

Sub test() MsgBox paques(2033) End Sub ' Public Function paques(Y) paques= CDate(((Round(DateSerial(Y, 4, (234 - 11 * (Y Mod 19)) Mod 30) / 7, 0) * 7) - 6)) End Function

---

testé jusqu en 2033

a noter que l'on peut l'utiliser en formule

Citation:

---

=paques(B1)

---

si ca peut servir

merci ARTURO;)

edit:
formater la cellule en format de date !!!! (merci pierre pour le retour ) sinon on a le numero de serie de la date

Salut Patrick,

Si la cellule n'est pas en format date, ça renvoie la valeur numérique. La ligne avec DateSerial est inutile, car ça n'a pas de sens de recomposer une date à partir d'une date. Dès lors, tu peux raccourcir avec le code suivant, mais l'affichage dans la cellule dépend bien du format de la cellule, et si tu es en standard, la fonction ne convertit pas le format en format date, même en typant la fonction ...

Code:

---

1 2 3

Public Function paques(Y) As Date paques = CDate(((Round(DateSerial(Y, 4, (234 - 11 * (Y Mod 19)) Mod 30) / 7, 0) * 7) - 6)) End Function

---

Tu constateras au passage que l'on n'est vraiment pas loin de la solution proposée par Rémy :roll:, et du coup, je m'interroge sur le réel intérêt de la chose, qui oblige à convertir en xlsm un fichier uniquement pour calculer une date que l'on peut calculer facilement par formule :koi: (mais bon, si le but est de s'amuser ^^)

bonjour pierre
oui je m'en suit rendu compte je sais
mince,mince et remince

c'est quand meme penible cette histoire
quand les cellules sont en format standard et que j'injecte dateserial le resultat visuel est une date

Code:

---

1 2 3 4 5

Sub test2() [A2] = DateSerial(2018, 4, 1) paque = DateSerial(2018, 4, 1) [A3] = paque End Sub

---

:mur:

le but et surtout d'avoir cette fonction en pur vba pour autre chose qu'une cellule et accessoirement !!! pour une cellule bien que comme tu dis injecter la formule est amplement suffisant
la fonction de remy ne sert donc que pour les cellules pas VBA ou alors se servir de la cellule comme intermediaire (pas top) c'est ce que j'avais

le post a été corrigé