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 : Sélectionner tout - Visualiser dans une fenêtre à part
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