ecrire formule en VBA

Bonjour a tous
j'ai encore besoin de votre aide pour copier 1 formule en VBA
le programme donne erreur 1004 ligne 5
j'ai cherche dans les forums mais sans succes
probleme avec RC peut-etre?
la je bloque merci pour votre aide

Code:

---

1 2 3 4 5 6 7 8

Sub toto() Dim cel As Range For Each cel In Range("d1:d100") If cel.Offset(0, -3).Value > 0 Then ActiveCell.FormulaR1C1 = "=EDATE(RC[-2],RC[-1])" End If Next End Sub

---

Bonjour,

Peut-être,

Code:

---

1 2 3 4 5 6 7 8

Sub toto() Dim cel As Range For Each cel In Range("d1:d100") If cel.Offset(0, -3).Value > 0 Then cel.FormulaR1C1 = "=EDATE(RC[-2],RC[-1])" End If Next End Sub

---

bonsoir Daniel

j'avais deja essaye cette solution
j'ai toujours erreur 1004???? ligne5
je continue a chercher mais si toutefois....
merci d'avance

Est-ce qu'il y a des formules écrites en D1:D100 ? Si oui, dans la première cellule vide de cette plage, quelles sont les valeurs en colonnes B et C ?

rebonsoir Daniel
colonne A il a y 1 chiffre
colonne B il a y 1 date
colonne C il a y 1 nb de mois
colonne D je voudrais inscrire la formule qui me donnera la nouvelle date
mais ca coince!!!!
merci encore pour ton aide
cordialement

Ça fonctionne ici, peux-tu poster un classeur de test ?

j'ai recopie les donnees et le code dans un autre dossier et cela fonctionne tres bien je n'y comprends plus rien du tout!!!!as-tu une idee?
merci pour ton aide et bonne soiree

Ça peut être beaucoup de choses, feuille protégée, classeur corrompu...