Valeur cible

Bonjour,

Est-il possible de créer une macro qui remplacerai l'outil "valeur cible" ??

Car il faut que je répète plusieurs fois l'opération et j'aimerais avoir juste à rentrer la valeur cherchée.;

Merci d'avance au forum

Cdt

juju

Bonjour,

Soit A4 la cellule à définir, A3 la cellule à modifier

Ta macro pourra être :

Sub valeur_cible()
Dim valeur
valeur = InputBox(prompt:="valeur cherchée ?")
    Range("A4").GoalSeek Goal:=valeur, ChangingCell:=Range("A3")
End Sub

Salut jstefani, Salut Sylvain,

Juste une question, c quoi l'outil valeur cible ??

A+

Souri84

ok, c bon, j'ai pigé la macro....

Salut Souri

L'outil valeur cible (Outils/Valeur cible) te permet d'atteindre une valeur précise pour la "cellule à définir", en calculant la valeur spécifique qu'il faut mettre dans la "cellule à modifier" pour atteindre cette valeur.

(phrase à relire plusieurs fois de gauche à droite... )

Bien sûr dans la "cellule à définir", il faut une formule qui fasse appel à la "cellule à modifier".

Un petit exemple qui parle toujours mieux que des mots :

A1 = 2

A2 = 5

A3 = A1 * A2

Outils/Valeur cible

Cellule à définir : A3

Valeur à atteindre : 12

Cellule à modifier : A2

A2 va devenir 6 pour que A3 remplisse la condition demandée

Edit : trop tard pour Souri, ça servira peut-être à d'autres...