Bonjour,

J'essaye d'écrire dans les cellules E6, E7 ....E36 une formule du style, (j'ai consulté les "FAQ" mais je n'ai rien trouvé)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
"=SI(BCompteur<>"";DonnneesPerso!E4;"")"
:

avec l'utilisation d'une boucle FOR car je dois l'écrire dans dans plusieurs cellules.
J'ai écrit le code suivant en utilisant "FormulaR1C1" mais pas moyen d'exécuter la ligne "Range..." : erreur d'exécution 1004.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim JrMois As Integer
Dim LgDepart As Integer
Dim Compteur As Integer
 
LgDepart = 5
JrMois = 30
 
For i = 1 To JrMois
 
    Compteur = LgDepart + i
    Range("E" & Compteur).FormulaR1C1 = "=SI(B" & Compteur & "<>BLANK;DonneesPerso!E4;"""")"
 
Next i
Merci d'avance pour votre aide.