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 : Sélectionner tout - Visualiser dans une fenêtre à part
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