Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Excel: Pb avec SolverOptions depuis passage Office2002

Excel: Pb avec SolverOptions depuis passage Office2002

1 réponse
Avatar
webcyril
Hello,=20

J'utilise le solveur Excel pour r=E9soudre des =E9quations.=20

Le code VBA/Excel ci-dessous fonctionne tr=E8s bien sous=20
Offfice97/NT4 mais ne fonctionne pas sous Office2002/XP.=20

J'ai une erreur "Solveur: une erreur est survenue, ou la=20
m=E9moire est satur=E9e" (???) lors de l'ouverture de mon=20
fichier Excel via l'Explorer Windows.
Cette erreur se produit sur la fonction SolverOptions=20
Une fois Excel ouvert et apr=E8s l'erreur, si je relance la=20
macro de r=E9solution, pas de soucis (??)
Mon fichier Excel contient une r=E9f=E9rence au fichier=20
solver.xla et la compilation compl=E8te se passe tr=E8s bien.

Le probl=E8me intervient lors de l'ouverture de Excel 2002=20
seulement !

Quelqu'un peut m'aider ???=20

Merci=20

Code VBA:=20

Private Sub Workbook_Open()
On Error GoTo Err_Trait

AddIns("Solver Add-in").Installed =3D True

Sheets(1).Select
Worksheets(1).Activate
ActiveSheet.Cells(1, 1).Select
Selection.Font.Bold =3D True
=20
' graines
ActiveSheet.Cells(3, 2).Value =3D 14.5
ActiveSheet.Cells(4, 2).Value =3D 8.7

SOLVER.SolverReset

SOLVER.SolverOptions MaxTime:=3D500, Iterations:=3D100,=20
Precision:=3D0.000001, AssumeLinear _
:=3DFalse, StepThru:=3DFalse, Estimates:=3D1,=20
Derivatives:=3D1, SearchOption:=3D1, _
IntTolerance:=3D5, Scaling:=3DFalse,=20
Convergence:=3D0.0001, AssumeNonNeg:=3DFalse

SOLVER.SolverOk SetCell:=3D"$B$5", MaxMinVal:=3D3,=20
ValueOf:=3D"0", ByChange:=3D"$B$3,$B$4"
=20
SOLVER.SolverSolve
=20
Exit Sub

Err_Trait:
MsgBox Err.Number & " - " & Err.Description,=20
vbCritical, "Test"
End Sub

Merci =20
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Clément Marcotte
Bonjour,

Quelques mises à jour d'Office/Excel à faire.


http://support.microsoft.com/default.aspx?scid=kb;fr;320302&Product=xl2002INT



"webcyril" a écrit dans le message de
news:22e7201c45de4$0a7ac080$
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 via l'Explorer Windows.
Cette erreur se produit sur la fonction SolverOptions
Une fois Excel ouvert et après l'erreur, si je relance la
macro de résolution, pas de soucis (??)
Mon fichier Excel contient une référence au fichier
solver.xla et la compilation complète se passe très bien.

Le problème intervient lors de l'ouverture de Excel 2002
seulement !

Quelqu'un peut m'aider ???

Merci

Code VBA:

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

' graines
ActiveSheet.Cells(3, 2).Value = 14.5
ActiveSheet.Cells(4, 2).Value = 8.7

SOLVER.SolverReset

SOLVER.SolverOptions MaxTime:P0, Iterations:0,
Precision:=0.000001, AssumeLinear _
:úlse, StepThru:úlse, Estimates:=1,
Derivatives:=1, SearchOption:=1, _
IntTolerance:=5, Scaling:úlse,
Convergence:=0.0001, AssumeNonNeg:úlse

SOLVER.SolverOk SetCell:="$B$5", MaxMinVal:=3,
ValueOf:="0", ByChange:="$B$3,$B$4"

SOLVER.SolverSolve

Exit Sub

Err_Trait:
MsgBox Err.Number & " - " & Err.Description,
vbCritical, "Test"
End Sub

Merci