Ce tutoriel va vous montrer comment utiliser Goal Seek dans VBA
Goal Seek est l'un des outils d'analyse What-if disponibles dans Excel qui vous permet d'appliquer différentes valeurs aux formules et de comparer les résultats.
Syntaxe de recherche d'objectif
La fonction GoalSeek a 2 arguments - l'objectif (la cellule que vous souhaitez modifier) et ChangingCell (la cellule qui doit être modifiée). La fonction renvoie un True ou un False - True si l'objectif est trouvé et False si l'objectif n'est pas trouvé.
Utiliser la recherche d'objectif dans VBA
Considérez la feuille de travail suivante ci-dessous.
Pour modifier le remboursement demandé chaque mois en changeant la durée en mois, on peut écrire la procédure suivante.
| 1234 | Sous-AugmentationTerm()'faire B6 100 en changeant B5Range("B6").Objectif de recherche d'objectif :=100, ChangingCell :=Range("B5")Fin du sous-marin |
Notez qu'il doit y avoir une formule dans la cellule B6 et une valeur dans la cellule B5.
Utilisation de la recherche d'objectif avec une instruction If
Vous pouvez également utiliser GoalSeek avec une instruction If pour diriger le flux de votre code.
| 12345678 | Sous-AugmentationTerm()'faire B6 100 en changeant B5 - et renvoyer un message à l'utilisateurIf Range("B6").GoalSeek(Goal:=100, ChangingCell:=Range("B5")) = True ThenMsgBox "Un nouveau terme a été trouvé avec succès"AutreMsgBox ("Le nouveau terme n'a pas été trouvé")Fin siFin du sous-marin |
