re bonjour,
une solution sans passer par le solver d'excel
la précision de la recherche est réglée par la variable s
Sub test()
With Worksheets("calcul")
lim = .Range("L12")
s = 1 / 10
Max = 0
For i = 0 To lim Step s
.Range("N85") = i
If .Range("N96") > Max Then Max = .Range("N96"): maxi = i
Next i
.Range("N85") = maxi
End With
End Sub
pour déclencher la macro automatiquement dès que que l12 change
à mettre dans le module de la feuille calcul
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 12 And Target.Column = 12 Then
Application.EnableEvents = False
Call test
Application.EnableEvents = True
End If
End Sub