Hello,
J'utilise le solveur Excel pour résoudre des équations.
Le code VBA/Excel ci-dessous fonctionne très bien sous Offfice97/NT4 mais ne fonctionne pas sous Office2002/XP.
J'ai une erreur "Solveur: une erreur est survenue, ou la mémoire est saturée" (???) lors de l'ouverture de mon fichier Excel.
Cette erreur se produit sur la fonction SolverOptions
Quelqu'un peut m'aider ???
Merci
webcyril
source:
Private Sub Workbook_Open()
On Error GoTo Err_Trait
AddIns("Solver Add-in").Installed = True
Sheets(1).Select
Worksheets(1).Activate
ActiveSheet.Cells(1, 1).Select
Selection.Font.Bold = True
ActiveSheet.Cells(3, 2).Value = 14
Debug.Print "avant SolverReset"
SOLVER.SolverReset
Debug.Print "avant SolverOptions"
SOLVER.SolverOptions MaxTime:=500, Iterations:=100, Precision:=0.000001, AssumeLinear _
:=False, StepThru:=False, Estimates:=1, Derivatives:=1, SearchOption:=1, _
IntTolerance:=5, Scaling:=False, Convergence:=0.0001, AssumeNonNeg:=False
Debug.Print "avant SolverOk"
SOLVER.SolverOk SetCell:="$B$5", MaxMinVal:=3, ValueOf:="0", ByChange:="$B$3,$B$4"
Debug.Print "avant SolverSolve"
SOLVER.SolverSolve
Exit Sub
Err_Trait:
MsgBox Err.Number & " - " & Err.Description, vbCritical, "Test Cyril"
End Sub