Probleme de code sur mon VBA Fermé

Question

Bonjour tous le monde,

J'arrive pas a faire marcher ma macro si-dessous :

ActiveCell.FormulaR1C1 = "=IF(TODAY()=TEXT(DAY(RC[-1])&""/""&MONTH(RC[-1])&""/""&YEAR(TODAY());""jj/mm/aaaa"")+0;""Anniversaire"";IF(AND(TODAY()>=TEXT(DAY(RC[-1])&""/""&MONTH(RC[-1])&""/""&YEAR(TODAY());""jj/mm/aaaa"")-5;TODAY()<0+TEXT(DAY(RC[-1])&""/""&MONTH(RC[-1])&""/""&YEAR(TODAY());""jj/mm/aaaa"")),""Bientôt Anniversaire"";""))"

Je sais que celle-ci marche :

ActiveCell.FormulaR1C1 = "=IF(TODAY()=TEXT(DAY(RC[-1])&""/""&MONTH(RC[-1])&""/""&YEAR(TODAY()),""jj/mm/aaaa"")+0,""Anniv"")"

Je pense que le problème vient de là :

ActiveCell.FormulaR1C1 = "=IF(AND(TODAY()>=TEXT(DAY(RC[-1])&""/""&MONTH(RC[-1])&""/""&YEAR(TODAY()),""jj/mm/aaaa"")-5,TODAY()<0+TEXT(DAY(RC[-1])&""/""&MONTH(RC[-1])&""/""&YEAR(TODAY()),""jj/mm/aaaa"")),""Bientôt Anniversaire"",""))"

Pouvez-vous m'aider ? Merci beaucoup à tous!

Cordialement

M-12 · Answer

Bonjour,

Comme ceci
ActiveCell.FormulaR1C1 = "=IF(TODAY()=TEXT(DAY(RC[-1])&""/""&MONTH(RC[-1])&""/""&YEAR(TODAY()),""jj/mm/aaaa"")+0,""Anniversaire"",IF(AND(TODAY()>=TEXT(DAY(RC[-1])&""/""&MONTH(RC[-1])&""/""&YEAR(TODAY()),""jj/mm/aaaa"")-5,TODAY()<0 + TEXT(DAY(RC[-1])&""/""&MONTH(RC[-1])&""/""&YEAR(TODAY()),""jj/mm/aaaa"")),""Bientôt Anniversaire"",""""))"

Il faut faire attention au virgule et/ou point virgule ainsi qu'au ""

Joanito · Answer

Merci beaucoup

Probleme de code sur mon VBA

2 réponses

Discussions similaires