Insertion formule dans cellule

Bonjour,

j'ai un soucis avec mon code.

Quand je mets :

Range("G7").Formula = "=IF(OR(F7="";H7="";H7=NOK; H7=Attente);"";(DATE(ANNEE(F7)+3;MOIS(F7);JOUR(F7))))"

ça me dit : erreur définie par l'application ou par l'ojet

Je ne sais pas pourquoi.

Cdlt.

Bonjour,

Essaie avec

Range("G7").Formula = "=IF(OR(F7="""",H7="""",H7=""NOK"",H7=""Attente""),"""",DATE(YEAR(F7),MONTH(F7),DAY(F7)))"

A+

Merci Frangy,

ça fonctionne niquel.

Cdlt.

Bonjour

Ou bien :

Range("G7").FormulaLocal = "=SI(OU(F7="""";H7="""";H7=""NOK"";H7=""Attente"");"""";DATE(ANNEE(F7)+3;MOIS(F7);JOUR(F7)))"

Amicalement

Nad

Bonjour,

Merci nad, ta version c'est en FR tandis que Frangy c'est US.

Cdlt.

Ben oui, puisque tu as une version Fr ! D'où le FormulaLocal

Nad