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