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
Merci d'avance pour votre réponse
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
Partager