Test 0 = VAN < 0
test1 :
Range("L34").Select (je selectionne la cellule L34, et je fais = L35)
Application.CutCopyMode = False (Ainsi, mon prix de vente apparait en L34)
ActiveCell.FormulaR1C1 = "=R[1]C" (et est comptabilisé dans la VAN en I38)
-> Ici, je voudrai que la macro regarde si la VAN obtenue en I38 (après le test 1) est supérieure à celle obtenue avec le test 0 (a priori, c'est vrai, puisqu'on part d'une VAN négative).
alors, SI I38 du test 1 est supérieure à celle du test 0, alors on continue, et on fait
Range("L34").Select
Selection.ClearContents
Puis on effectue le Test 2:
Test 2 =
Range("M34").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[1]C"
-> Ici, je voudrai que la macro regarde si la VAN obtenue en I38 (après le test 2) est supérieure à celle obtenue avec le test 1. Alors, SI I38 du test 2 est supérieure à celle du test 1, alors on continue, et on fait
Range("M34").Select
Selection.ClearContents
Puis on effectue le test 3
Test 3:
Range("N34").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=R[1]C"
etc etc.... jusqu'à ce que la VAN du test X soit inférieure à celle du test précédent...