Utiliser la recherche d’objectif, Excel VBA
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,