SolverGet, fonction

Cette fonction renvoie des informations sur les paramètres courants du Solveur. Ces paramètres sont spécifiés dans les boîtes de dialogue Paramètres du solveur et Options du solveur.

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.

SolverGet(TypeNum, SheetName)

TypeNumEntier requis. Nombre spécifiant le type d'information souhaité. Les paramètres suivants sont spécifiés dans la boîte de dialogue Paramètres du solveur.

TypeNum Renvoie
1 La référence figurant dans la zone Cellule cible à définir ou la valeur d'erreur #N/A si Solveur n'a pas été utilisé dans la feuille active.
2 Nombre correspondant à l’option Égal à : 1 représente Max, 2 représente Min et 3 représente La valeur de.
3 La valeur figurant dans la zone Valeur.
4 La référence (sous la forme d'une référence multiple, si nécessaire) figurant dans la zone Cellules variables.
5 Le nombre de contraintes.
6 Une matrice des côtés gauches des contraintes, sous la forme de texte.
7 Tableau de nombres correspondant aux relations entre les côtés gauche et droit des contraintes : 1 représente <=, 2 représente =, 3 représente >=, 4 représente int et 5 représente bin.
8 Une matrice des côtés droits des contraintes, sous la forme de texte.
13 La valeur True si la méthode Résolution PL simple est sélectionnée, False si une autre méthode de résolution est sélectionnée.
20 True si la case Rendre les variables non contraintes non négatives est cochée ; False si elle est effacée.

Les paramètres suivants sont spécifiés dans la boîte de dialogue Options du solveur.

TypeNum Renvoie
9 L’option Temps max (secondes) (onglet Toutes les méthodes).
10 L’option Itérations (onglet Toutes les méthodes).
11 L’option Précision des contraintes (onglet Toutes les méthodes).
12 L’option Optimalité des nombres entiers (%) (onglet Toutes les méthodes).
14 La valeur True si la case à cocher Afficher le résultat des itérations est activée et la valeur False si elle est désactivée.
15 La valeur True si la case à cocher Échelle automatique est activée et la valeur False si elle est désactivée (onglet Toutes les méthodes).
16 Un nombre correspondant au type d'estimations : 1 représente Tangente et 2, Quadratique.
17 Un nombre correspondant à l’option Dérivées dans l’onglet GRG non linéaire : 1 correspond à Transfert et 2 correspond à Central (onglet GRG non linéaire).
18 Un nombre correspondant au type de recherche : 1 représente la recherche de type Newton et 2 représente la recherche par gradient conjugué.
19 La tolérance Convergence (onglet GRG non linéaire et onglet Evolutionary).
21 L’option Taille de la population (onglet GRG non linéaire et onglet Evolutionary).
22 L’option Valeur de départ aléatoire (onglet GRG non linéaire et onglet Evolutionary).
23 True si la case Utiliser le démarrage multiple est cochée ; False si elle est effacée (onglet GRG Non linéaire).
24 La valeur True si la case à cocher Limites sur les variables requises est activée, False si elle est désactivée (onglet GRG non linéaire et onglet Evolutionary).
25 L’option Taux de mutation (onglet Evolutionary).
26 L’option Sous-problèmes max (onglet Toutes les méthodes).
27 L’option Solutions réalisables max (onglet Toutes les méthodes).
28 L’option Ignorer les contraintes de nombre entier (onglet Toutes les méthodes).
29 L’option Durée maximale sans amélioration (onglet Evolutionary).

SheetNameVariant facultatif. Nom de la feuille contenant le modèle du Solveur à propos duquel vous souhaitez obtenir des informations. Si SheetName est omis, cette feuille est supposée être la feuille active.

Exemple

Cet exemple affiche un message si vous n'avez pas utilisé le Solveur dans la feuille Sheet1.

Worksheets("Sheet1").Activate 
state = SolverGet(TypeNum:=1) 
If IsError(State) Then 
 MsgBox "You have not used Solver on the active sheet" 
End If

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.