Bonjour,
Je commence à utiliser les intégrations et je bloque sur cette formule, quelqu'un pourrait m'aider svp ? ^^
ActiveCell.Formula = "=IF((ActiveCell.Offset(-1 - i, -16).Value - ActiveCell.Offset(-i, -16).Value)>(ActiveCell.Offset(-i - 1, -11).Value + ActiveCell.Offset(0, -11).Value) + (ActiveCell.Offset(0, -3).Value + ActiveCell.Offset(0, -1).Value),(ActiveCell.Offset(-i - 1, -11).Value + ActiveCell.Offset(0, -11).Value), ""Impossible"")"
Le classeur est la pour voir ce que fais le code:
Sub calcul_avantH()
For i = 1 To 5
Range("W17").Select
Do While ActiveCell.Previous.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
Do While ActiveCell.Previous.Value <> ""
ActiveCell.Formula = "=IF((ActiveCell.Offset(-1 - i, -16).Value - ActiveCell.Offset(-i, -16).Value)>(ActiveCell.Offset(-i - 1, -11).Value + ActiveCell.Offset(0, -11).Value) + (ActiveCell.Offset(0, -3).Value + ActiveCell.Offset(0, -1).Value),(ActiveCell.Offset(-i - 1, -11).Value + ActiveCell.Offset(0, -11).Value), ""Impossible"")"
Loop
Next i
end sub