Probleme de code sur mon VBA

Fermé
Joanito - Modifié le 29 déc. 2017 à 16:04
 Joanito - 2 janv. 2018 à 10:14
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
A voir également:

2 réponses

M-12 Messages postés 1331 Date d'inscription lundi 22 septembre 2008 Statut Membre Dernière intervention 8 avril 2023 284
29 déc. 2017 à 17:01
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 ""
0
Merci beaucoup
0