Erreur sur insertion formule par VBA

Bonjour

Dans un module je tente de mettre dans une cellule précise une formule mais il me provoque une « erreur 1004 erreur définie par l'application ou par l'objet »

Merci de votre aide

Sub remplie()
Application.ScreenUpdating = False

Sheets("Feuil2").Range("u39").Formula = "=1*(E39 = MAX($E39:$K39)) * (AUJOURDHUI() - DECALER(ouvriers!$A$5; L38 + 1; EQUIV(L$36; ouvriers!$2:$2; 0)))"

Bonjour,

Sur la formule elle-même, le premier 1 est inutile, l'expression booléenne qui suit étant multipliée par le facteur suivant prendra la valeur 1 ou 0 sans qu'on ait à provoquer cette conversion en multipliant par 1...

Pour le reste, ne pas oublier, selon que tu utilises :

. Formula => formule en anglais, style A1, (le séparateur est la virgule)

. FormulaLocal => formule dans la langue définie dans les paramètres régionaux Windows...

. FormulaR1C1 => comme Formula mais style L1C1

.FormulaR1C1Local => comme FormulaLocal mais style L1C1

Cordialement.

merci pour la réponse

J’ai remplacé le code

    Sub remplie()
    Application.ScreenUpdating = False

    Sheets("Feuil2").Range("u39").Formula = "=1*(E39 = MAX($E39:$K39)) * (AUJOURDHUI() - DECALER(ouvriers!$A$5; L38 + 1; EQUIV(L$36; ouvriers!$2:$2; 0)))"

par

Sheets("Feuil2").Range("u39").FormulaLocal = "=1*(E39 = MAX($E39:$K39)) * (AUJOURDHUI() - DECALER(ouvriers!$A$5; L38 + 1; EQUIV(L$36; ouvriers!$2:$2; 0)))"

merci