Fonction SolverSave

Enregistre la définition du problème du Solveur dans la feuille de calcul.

Note Le complément Solveur n’est pas activé par défaut. Pour pouvoir utiliser cette fonction, il doit être activé et installé. Pour plus d’informations sur la procédure à suivre, voir Utilisation des fonctions VBA du solveur. Une fois le complément solveur installé, vous devez établir une référence à celui-ci. Dans Visual Basic Editor, avec un module actif, cliquez sur Références dans le menu Outils, puis sélectionnez Solveur sous Références disponibles. Si Solveur n’apparaît pas sous Références disponibles, cliquez sur Parcourir, puis ouvrez Solver.xlam dans le sous-dossier \Program Files\Microsoft Office\Office14\Library\SOLVER.

SolverSave( SaveArea)

SaveAreaVariant obligatoire. Plage de cellules où le modèle solveur doit être enregistré. S’il s’agit d’une plage à cellule unique, solveur utilise autant de cellules que nécessaire pour enregistrer le modèle, dans une colonne commençant par la cellule spécifiée. S’il s’agit d’une plage à plusieurs cellules, solveur utilise uniquement les cellules de cette plage, même si le modèle ne peut pas être entièrement enregistré. La plage représentée par l’argument SaveArea peut se trouver sur n’importe quelle feuille de calcul, mais vous devez spécifier la feuille de calcul si elle n’est pas la feuille active. Par exemple, SolverSave("Sheet2!A1:A3") enregistre le modèle sur la feuille Sheet2 même si Sheet2 n’est pas la feuille active.

Exemple

Cet exemple utilise les fonctions du solveur pour optimiser la marge brute dans le cadre d’un problème commercial. La fonction SolverSave enregistre le problème en cours dans une plage de la feuille de calcul active.

Worksheets("Sheet1").Activate 
SolverReset 
SolverOptions Precision:=0.001 
SolverOK SetCell:=Range("TotalProfit"), _ 
 MaxMinVal:=1, _ 
 ByChange:=Range("C4:E6") 
SolverAdd CellRef:=Range("F4:F6"), _ 
 Relation:=1, _ 
 FormulaText:=100 
SolverAdd CellRef:=Range("C4:E6"), _ 
 Relation:=3, _ 
 FormulaText:=0 
SolverAdd CellRef:=Range("C4:E6"), _ 
 Relation:=4 
SolverSolve UserFinish:=False 
SolverSave SaveArea:=Range("A33")

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.