Excel: Pb avec SolverOptions depuis passage Office2002

webcyril Messages postés 16 Date d'inscription jeudi 1 février 2001 Statut Membre Dernière intervention 9 novembre 2004 - 24 juin 2004 à 12:29
webcyril Messages postés 16 Date d'inscription jeudi 1 février 2001 Statut Membre Dernière intervention 9 novembre 2004 - 29 juin 2004 à 15:10
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

1 réponse

webcyril Messages postés 16 Date d'inscription jeudi 1 février 2001 Statut Membre Dernière intervention 9 novembre 2004
29 juin 2004 à 15:10
Personne n'a eu ce soucis ???
webcyril
0