bonjour,
une solution possible, il faut ajouter la référence au solver en VBA, via le menu outils, reférences, ...
Sub aargh()
i = 3
While Cells(i, 2) <> ""
sc = Cells(i, 4).Address
cc = Cells(i, 3).Address
SolverOk SetCell:=sc, MaxMinVal:=3, ValueOf:=Cells(i, 2).Value, ByChange:=cc, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve True
i = i + 1
Wend
End Sub
note que s'agissant d'une équation du second degré, il peut y avoir 2 réponses possibles. le solver ne t'en donnera qu'une seule.
pourquoi ne pas utiliser la méthode du calcul des racines ?