Ecriture formule dans une cellule

Bonjour;

Je voudrai mettre une formule dans une cellule, lors de l'éxécution je suis bloquer par l'erreur 1004 au niveau de l'écriture dans la cellule.

voici le morceau de programme

Code:

---

1 2 3 4 5 6 7 8

Dim fform As String   Range("a2").Select For i = 1 To 2 ActiveCell.Select fform = "=SI(MAX(a12:b12)=0;0;MAX(a12:b12))" ActiveCell.Offset(0, 1).Activate ActiveCell.FormulaR1C1 = fform

---

Merci d'avance pour votre réponse

Bonjour.

Tu peux essayer

Code:

---

maCel.FormulaLocal = fform

---

Tu n'as pas besoin de sélectionner la cellule!

COrdialement,

PGZ