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.