Solver

Re : Solver

Salut Ubacubac,

Si tu ne nous donnes pas ton code, je ne vois pas comment on pourra t'aider 😕

A+

Re : Solver

Bonjour,

Un exemple (ici, lancé par un bouton):

"Cible" et "CelluleVar" sont les noms de deux cellules dans la feuille

Option Explicit

Private Sub CommandButton1_Click()
ActiveSheet.Unprotect
SolverOk SetCell:="Cible", MaxMinVal:=3, ValueOf:="0", ByChange:="CellVar"
SolverSolve UserFinish:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Attention ! il faut que dans l'environnement Visual Basic, dans la fenêtre "Projet", il y ait : SOLVER (SOLVER.XLA). S'il n'y est pas, tu fais (toujours dans Visual Basic) :

Outils / Références / clic sur Solver

Si Solver n'y est pas tu fais :

Parcourir / Disque C: / Program files / Microsoft Office / Office 10 / Macrolib /Solver / parmi les fichiers .xla,tu choisis Solver.xla / ouvrir

Ensuite tu fais ce qui est dit plus haut (et si, comme moi pour ce genre de choses, tu as tendance à oublier, tu notes tout pour un autre jour... au cas où...😀).

Cordialement