Discussion :

[spoyet]

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

[pgz]

Bonjour.

Tu peux essayer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maCel.FormulaLocal = fform

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

COrdialement,

PGZ