Re, encore moi
J'ai réussi à le faire dans une macro (Macro5) puis j'ai essayé d'étendre mon tableau à 2 lignes pour tester et ajouter un bloc à ma macro pour qu'une seule et même macro calcul mes 2 lignes (Solveur_1).
Sub Solveur_1()
Application.DisplayAlerts = False
'Ligne a
SolverOk SetCell:="$H$4", MaxMinVal:=2, ValueOf:=0, ByChange:="$C$4:$G$4", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$C$4:$G$4", Relation:=4, FormulaText:="entier"
SolverAdd CellRef:="$C$4:$G$4", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$H$4", Relation:=3, FormulaText:="$I$4"
SolverSolve Userfinish:=True
'Ligne b
SolverOk SetCell:="$H$5", MaxMinVal:=2, ValueOf:=0, ByChange:="$C$5:$G$5", _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$C$5:$G$5", Relation:=4, FormulaText:="entier"
SolverAdd CellRef:="$C$5:$G$5", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$H$5", Relation:=3, FormulaText:="$I$5"
SolverSolve Userfinish:=True
Application.DisplayAlerts = True
End Sub
Mais ça ne fonctionne pas, j'ai un message en bas à gauche qui reste : "mise en place du problème..."
De plus je dois le faire pour une trentaine de lignes à terme... je ne suis pas rendu, il faudrait donc que je passe idéalement par une boucle sinon je ne suis pas rendu.
Je ne vois pas du tout comment le faire
Bonne soirée