erreur dans formule [résolu]

[goldfinger13]

Bonjour à tous,
Quelqu'un peut il me dire ce qui cloche dans mes formules
le message d'erreur est le suivant: erreur de compilation attendu fin d'instruction.
j'ai utilisé ?activecell.formular1c1 pour l'écriture de la formule et malgré ce ça coince

BASEVEHICULES.Range("O65536").End(xlUp).Offset(1, 0).FormulaR1C1 = "=IF(TODAY()>RC[-5]-15,"contrôle à effectuer","contrôle valide")"
BASEVEHICULES.Range("P65536").End(xlUp).Offset(1, 0).FormulaR1C1 = "=IF(RC[-4]="","Pas de contôle à effectuer",IF(TODAY()>RC[-4]-15,"contrôle à effectuer","Contrôle valide"))"

Ecriture sur une ligne par formule
merci pour votre aide

 

[tototiti2008]

Re : erreur dans formule

Bonjour goldfinger,

tu dois doubler toutes tes guillemets dans tes formules

par exemple

BASEVEHICULES.Range("O65536").End(xlUp).Offset(1, 0).FormulaR1C1 =  "=IF(TODAY()>RC[-5]-15,""contrôle à effectuer"",""contrôle valide"")"

 

[goldfinger13]

Re : erreur dans formule

merci tototiti2008 pour ton aide mon problème a été résolu pour la première formule
la seconde a été réécrite de cette manière

BASEVEHICULES.Range("P65536").End(xlUp).Offset(1, 0).FormulaR1C1 = "=IF(RC[-4]="",""Pas de contôle à effectuer"",IF(TODAY()>RC[-4]-15,""contrôle à effectuer"",""Contrôle valide""))"

et là j'ai une erreur 1004
erreur définie par l'appli ou l'objet ????

 

[tototiti2008]

Re : erreur dans formule

Re,

Il faut penser à les doubler partout

BASEVEHICULES.Range("P65536").End(xlUp).Offset(1, 0).FormulaR1C1 = "=IF(RC[-4]="""",""Pas de contôle à effectuer"",IF(TODAY()>RC[-4]-15,""contrôle à effectuer"",""Contrôle valide""))"

 

[goldfinger13]

Re : erreur dans formule

Avec deux yeux bien ouvert ça fonctionne mieux !!!
encore merci à toi probleme résolu