Probleme de code sur mon VBA

Joanito -  
 Joanito -
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

Réponse 1 / 2
M-12 Messages postés 1332 Date d'inscription   Statut Membre Dernière intervention   285
 
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
Réponse 2 / 2
Joanito
 
Merci beaucoup
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses