Bonjour,

Je tente d'écrire une formule dans chaque cellule de la colonne E avec ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
'   Recréer la formule de la colonne E
 
    Dim CellForm As String
 
    For i = 4 To noFinS
'       CellForm = "=SI(B" & i & "-C" & i & "-D" & i & ">0;B" & i & "-C" & i & "-D" & i & ";0)"
'      ou bien
        CellForm = "=SI(LC(-3)-LC(-2)-LC(-1)>0;LC(-3)-LC(-2)-LC(-1);0)"
 
        Debug.Print CellForm
        Range("E" & i).Formula = CellForm
 
    Next i
Le print est conforme à mes attentes mai la macro plante sur Range avec le message : la méthode "Formula" de l'objet "Range" a échoué !!!

Je ne comprends pas où est l'erreur

Merci

Antineos