Discussion :

[bbouling]

Bonjour,
je fais appel au Solver dans une macro et le programme marche très bien avec des dizaines de classeurs et sur un classeur, j'ai une erreur lorsque je lance le Solver et encore pas sur toutes les feuilles...
je met le code où cas où

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub MonSolver(ByVal StartTabloRes As Range, ByVal FuncPos As Integer, ByVal Pos As Integer)
 
Dim DestWorksheet As Worksheet
 
Set DestWorksheet = Workbooks(MainForm.NomClasseur.Caption).ActiveSheet
 
SolverOptions MaxTime:=1000, Iterations:=10000, Precision:=0.00000001, _
        AssumeLinear:=False, StepThru:=False, Estimates:=2, Derivatives:=2, _
        SearchOption:=1, IntTolerance:=1, Scaling:=False, Convergence:=0.0000001, _
        AssumeNonNeg:=True
 
SolverOk SetCell:=StartTabloRes.Offset(FuncPos, Pos).Address(, , xlA1), MaxMinVal:=2, ValueOf:="0", _
    ByChange:=DestWorksheet.Range(StartTabloRes.Offset(1, Pos), StartTabloRes.Offset(2, Pos)) _
    .Address(, , xlA1)
SolverSolve (True)
End Sub

euh ça se gate, maintenant ça ne fonctionne plus avec les autres classeurs ...

Les performances du système ne dépassent jamais les 15% durant le travail du programme.

[bbouling]

Ce matin, le petit programme veut bien fonctionner avec certains classeurs... mais pas tous ... je suis un peu perdu ...
Surtout que de façon manuel le Solver fonctionne parfaitement avec ce classeur.

[bbouling]

Solution trouvée:

En première ligne avant d'appeler le Solver

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SOLVER.SolverReset

et voilà