[XL-2010] Valider la solution trouvée par le solveur Excel

J'ai le même soucis que dans cette discussion avec un code plus simple sous exell 2010:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
If Range("C11").Value = "" Then
 
    Else
    Range("E11").Value = 1
    SolverOk SetCell:="$G$11", MaxMinVal:=3, ValueOf:=0, ByChange:="$E$11", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
 
    SolverAdd CellRef:="$E$11", Relation:=3, FormulaText:="0"
    SolverAdd CellRef:="$E$11", Relation:=1, FormulaText:="10"
 
    SolverOk SetCell:="$G$11", MaxMinVal:=3, ValueOf:=0, ByChange:="$E$10", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
 
    SolverSolve
 
    End If
     SolverDelete CellRef:="$E$11", Relation:=3, FormulaText:="0"
     SolverDelete CellRef:="$E$11", Relation:=1, FormulaText:="10"