Microsoft 365 Erreur sur une Macro

[PORCHER]

Bonjour à tous,
j'aurais besoin de vos lumières sur une formule, je veux écrire cette formule excel en vba
'=SI(B5="";"";SI(F5="Annulée";"Annulée";SI(G5<>"";"Ok";SI(F5<>"";SI(F5<AUJOURDHUI();"En retard";"En cours");SI(E5<>"";"A planifier";"A Lancer")))))

Voila ce que j'ai fait, mais une erreur est dans cette formule, pourriez-vous m'aider à trouver l'erreur!
Range("L5").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-3]="""","""",IF(RC[-3]=""Annulée"",""Annulée"",IF(RC[-2]<>"""";""Ok"",IF(RC[-3]<>"""", _
IF(TODAY()<(RC[-3]+R2C12),""En retard"",""En cours"",IF(RC[-4]<>"""",""A planifier"",""A Lancer"")))))))"

Merci

 

[M12]

Bonjour à tous,
j'aurais besoin de vos lumières sur une formule, je veux écrire cette formule excel en vba
'=SI(B5="";"";SI(F5="Annulée";"Annulée";SI(G5<>"";"Ok";SI(F5<>"";SI(F5<AUJOURDHUI();"En retard";"En cours");SI(E5<>"";"A planifier";"A Lancer")))))

Voila ce que j'ai fait, mais une erreur est dans cette formule, pourriez-vous m'aider à trouver l'erreur!
Range("L5").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-3]="""","""",IF(RC[-3]=""Annulée"",""Annulée"",IF(RC[-2]<>"""";""Ok"",IF(RC[-3]<>"""", _
IF(TODAY()<(RC[-3]+R2C12),""En retard"",""En cours"",IF(RC[-4]<>"""",""A planifier"",""A Lancer"")))))))"

Merci

Bonjour,
Vous avez fait un enregistrement de la formule, alors que vous n'êtes pas sur L5

Tester ceci

Range("L5").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-10]="""","""",IF(RC[-6]=""Annulée"",""Annulée"",IF(RC[-5]<>"""",""Ok"",IF(RC[-6]<>"""",IF(RC[-6]<TODAY(),""En retard"",""En cours""),IF(RC[-7]<>"""",""A planifier"",""A Lancer"")))))"

 

[TooFatBoy]

Bonjour,

Tu dis vouloir écrire une formule style A1 et tu nous montres une formule type RC...

Ta formule A1 se termine par 5 parenthèse, et te formule RC se termine par 7 parenthèses, donc il doit bien y avoir une erreur quelque part.
Il y a aussi un underscore qui traine au milieu de ta formule RC.


Le plus simple est d'écrire la formule que tu veux dans la cellule que tu veux, puis avec une petite macro tu vas voir ladite formule.

A1 : "=IF(B5="""","""",IF(F5=""Annulée"",""Annulée"",IF(G5<>"""",""Ok"",IF(F5<>"",IF(F5<TODAY(),""En retard"",""En cours""),IF(E5<>"""",""A planifier"",""A Lancer"")))))"

RC : "=IF(RC[-10]="""","""",IF(RC[-6]=""Annulée"",""Annulée"",IF(RC[-5]<>"""",""Ok"",IF(RC[-6]<>"""",IF(RC[-6]<TODAY(),""En retard"",""En cours""),IF(RC[-7]<>"""",""A planifier"",""A Lancer"")))))"

 

[M12]

Bonjour TooFatBoy,
Pour info, il y a aussi un point virgule à la place d'une virgule

 

[TooFatBoy]

Pour info, il y a aussi un point virgule à la place d'une virgule

Arf ! Oui, tu as bien sûr raison, je ne l'avais pas vu ! MERCI !
Et en plus, tu avais déjà répondu.
[edit] en regardant sa formule RC, je vois ce n'est pas que la formule, c'est une ligne d'instruction complète, donc il est normal qu'il y ait des underscore[/edit]

Suis trop nul, vais m'coucher...

 

[PORCHER]

Merci énormément, tu as raison TooFatBoy, çà fonctionne très bien ta formule RC
Je n'ai pas remarqué de point, virgule.
J'ai placé cette formule RC dans ma macro et valider, pas d'erreur annoncée
Bravo et Merci

 

[TooFatBoy]

Merci, mais c'est M12 qui a répondu en premier.

 

[PORCHER]

En effet, je n'avais pas vu M12
Merci, merci, merci M12
Très cordialement