Valeur Cible

Bonjour à tous et meilleurs voeux

Par le biais d'un bouton, je déclenche une valeur cible

J'ai écris ce code :

Sub MaValeurCible()
 Range("I46").GoalSeek Goal:=100, ChangingCell:=Range("E5")
 End Sub

La Valeur GoalSeek peut changer. J'aimerais donc avoir une combo box me demandant de saisir le montant voulu

Avez vous une idée ?

Cdt

Bonjour,

gs = CDbl(Application.InputBox("GoalSeek", Type:=1))
Range("I46").GoalSeek Goal:=gs, ChangingCell:=Range("E5")

eric