Probleme de code sur mon VBA
Joanito
-
Joanito -
Joanito -
Bonjour tous le monde,
J'arrive pas a faire marcher ma macro si-dessous :
Je sais que celle-ci marche :
Je pense que le problème vient de là :
Pouvez-vous m'aider ? Merci beaucoup à tous!
Cordialement
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
2 réponses
-
Bonjour,
Comme ceciActiveCell.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 "" -
