À l'aide de Solver.Ok de VBA doit référencer style L1C1

Lorsque vous appelez la fonction de macro Solver.Ok à partir d'un Visual Basic pour applications procédure ou la macro, vous devez utiliser la notation R1C1 lors du référencement plages de cellules dans une feuille de calcul. Si vous utilisez la notation A1 dans la référence à des plages de cellules, vous pouvez recevoir le message d'erreur suivantes :

Microsoft fournit des exemples de programmation pour illustration uniquement, sans garantie explicite ou implicite. Cela inclut, mais n'est pas limité aux garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous êtes familiarisé avec le langage de programmation présenté et les outils qui sont utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous expliquer les fonctionnalités d'une procédure particulière, mais ils ne sont pas modifier les exemples en vue de fournir des fonctionnalités supplémentaires ou de créer des procédures répondant à vos besoins spécifiques. La macro Solver.Ok est une macro de commande qui définit un simple modèle du Solveur, équivalent à en cliquant sur Solveur dans le menu Outils, puis en spécifiant options dans la boîte de dialogue Paramètres du Solveur.

Avant d'utiliser cette fonction, vous devez charger le Solveur complément l'aide du Gestionnaire Add-in. Pour charger le complément Solveur, procédez comme suit :

1. Dans le menu Outils, cliquez sur Compléments puis cliquez sur Activez la case à cocher Complément Solver.
2. Si le complément Solveur n'apparaît pas dans la zone Macros complémentaires disponibles, cliquez sur le bouton Parcourir, sélectionnez Solver.xla dans le dossier \Excel\Library\Solver et puis cliquez sur OK.

Remarque : si vous ne trouvez pas Solver.xla, vous devrez peut-être installer le Solveur complément dans l'aide du programme Microsoft Excel ou le programme d'installation de Microsoft Office.

Exemple Visual Basic procédure

La macro suivante illustre un exemple de comment appeler la macro de Solver.Ok notation R1C1 :

1. Dans un nouveau classeur Microsoft Excel, dans le menu Insertion, pointez sur Macro, cliquez sur module et tapez le code de macro suivant :

         Sub SolverOkDemo()
          Sheets("Sheet1").Select
          Range("C1").Select
          ActiveCell.Formula = "=a1+b1"
          ' Solver.Ok Parameters
          Set_Cell = Range("C1").Address(True, True, xlR1C1, True)
          Max_Min_Val = 3
          Value_Of = 21
          By_Changing = Range("a1:b1").Address(True, True, xlR1C1, True)
   
          Application.ExecuteExcel4Macro _
          String:="'[SOLVER.XLA]SOLVER'!SOLVER.OK(" _
             & Set_Cell & "," & Max_Min_Val & "," & Value_Of & "," & _
             By_Changing & ")"
          Application.ExecuteExcel4Macro _
          String:="'[SOLVER.XLA]SOLVER'!SOLVER.SOLVE()"
         End Sub
   					

2. Dans le menu Outils, cliquez sur Macro, sélectionnez la macro SolverOkDemo dans la liste et puis cliquez sur le bouton Exécuter pour exécuter la macro.

La macro procédez comme suit :

1. Sélectionnez la feuille sheet1.
2. Sélectionnez la cellule C1.
3. Insérer la formule = A1 + B1 dans la cellule C1.
4. Place la solution trouvée dans les cellules A1 et B1.
5. Boîte de dialogue du Solveur apparaît, indiquant qu'il trouvé une solution.
6. Cliquez sur OK.

Pour plus d'informations sur l'utilisation de SolverOk dans Visual Basic pour Microsoft Excel 97, à partir de Visual Basic Editor, cliquez sur le Compagnon Office, tapez SolverOk, cliquez sur Rechercher, puis cliquez sur pour afficher "fonction SolverOk".

Remarque : si le Compagnon est masqué, cliquez sur le bouton Compagnon Office dans la barre d'outils standard. Si le Compagnon n'est pas en mesure de répondre à votre requête, consultez l'article suivant dans la Base de connaissances : Pour plus d'informations sur SolverOk dans Microsoft Excel version 7.0, cliquez sur Aide intuitive dans le menu Aide type : pour plus d'informations sur Solver.OK dans Microsoft Excel version 5.0, cliquez sur contenu dans l'aide, cliquez sur Informations de référence, puis choisissez le bouton de recherche et le type : pour plus d'informations sur obtenir de l'aide sur Visual Basic pour Applications, consultez l'article suivant dans la Base de connaissances :