Sub rechercheobjectif()
Dim Target As Long
On Error GoTo Errorhandler
Target = InputBox("Entrez la valeur requise", "Entrez la valeur")
Worksheets("Goal_Seek").Activate
With ActiveSheet.Range("C7")
.GoalSeek_ Goal :=Target, _
ChangingCell:=Range("C2")
End With
Exit Sub
Errorhandler: MsgBox ("Désolé, la valeur n'est pas valide.")
End Sub

Goal Seek peut vous être très utile pour résoudre des problèmes complexes. En savoir plus sur la recherche d’objectifs à partir d’ici avant d’utiliser ce code.