Re : Simplification d'un code VBA!
Niquel!
Tu peut me faire la meme simplification avec:Sinon une simplification de cette macro est t-elle possible ?
Sub Macrocond()
If Range("H15") = "5000" Then
Range("C20").Select
ActiveCell.FormulaR1C1 = _
"=IF(R15C8=5000,IF(OFFSET(RC2,,-1)>R15C8,"""",(('Moteur et boite'!R[33]C2)/3.6)/IF('Puissance restante'!R[-15]C10>'0 à 100'!R3C7,'0 à 100'!R3C7,'Puissance restante'!R[-15]C10)),""diff de 5000"")"
End If
If Range("H15") = "5050" Then
Range("C20").Select
ActiveCell.FormulaR1C1 = _
"=IF(R15C8=5050,IF(OFFSET(RC2,,-1)>R15C8,"""",(('Moteur et boite'!R[33]C2)/3.6)/IF('Puissance restante'!R[-15]C10>'0 à 100'!R3C7,'0 à 100'!R3C7,'Puissance restante'!R[-15]C10)),""diff de 5000"")"
End If
If Range("H15") = "5100" Then
Range("C20").Select
ActiveCell.FormulaR1C1 = _
"=IF(R15C8=5100,IF(OFFSET(RC2,,-1)>R15C8,"""",(('Moteur et boite'!R[33]C2)/3.6)/IF('Puissance restante'!R[-15]C10>'0 à 100'!R3C7,'0 à 100'!R3C7,'Puissance restante'!R[-15]C10)),""diff de 5000"")"
End If
C'est le meme principe avec
si H15=5000, c'est 5000 au début de la formule
Si H15 = 5050 c'est 5050 au début de la formule
et ainsi de suite (toujours jusqu'a 7000!)