bonjour,
une exemple d'enchaînement de 2 problèmes à solutionner par le solver
Sub aargh()
' add reference to solver in vba
solverreset
solveradd "$A$1:$A$2", 1, 100
SolverOk SetCell:="$C$1", MaxMinVal:=1, ValueOf:="0", ByChange:="$A$1:$A$2"
SolverSolve
solverreset
solveradd "$A$5:$A$6", 1, 50
SolverOk SetCell:="$C$5", MaxMinVal:=1, ValueOf:="0", ByChange:="$A$5:$A$6"
SolverSolve
End Sub
aide (en anglais ici)
https://msdn.microsoft.com/EN-US/library/office/ff196600.aspx