Pb erreur 1004

[Rémi]

Bonjour à tous,

Voilà une petite macro qui plante sur une erreur d'exécution '1004'

Sur la ligne:

ActiveCell.FormulaR1C1 = '=IF(RC[-4]=0,0,IF(RC[-2]=0,1,RC[-4]/RC[-2])'

voici la macro:

Sub calcul()
Dim LastLine As Integer
Dim Cel As Range
Dim WS As Worksheet

LastLine = Range('A65536').End(xlUp).Row

For Each Cel In Range('E2:E' & LastLine)
Cel.Select
ActiveCell.FormulaR1C1 = '=RC[-3]+RC[-1]'
Next

For Each Cel In Range('F2:F' & LastLine)
Cel.Select
ActiveCell.FormulaR1C1 = '=IF(RC[-4]=0,0,IF(RC[-2]=0,1,RC[-4]/RC[-2])'
Next
End Sub


Je n'arrive pas à voir mon erreur, si quelqu'un peut me filer un coup de pouce...

Merci d'avance

Rémi

 

[Robert]

Bonjour Rémi, bonjour le forum,

Il te manque une parenthèse à la fin de la ligne qui plante :
ActiveCell.FormulaR1C1 = '=IF(RC[-4]=0,0,IF(RC[-2]=0,1,RC[-4]/RC[-2]))'

 

[Rémi]

Merci bien M'sieur...

Et désolé de ne pas l'avoir vu...

@+