programmation valeur cible

[nounours133]

salut a tous,
J'aimerais créer une macro qui calcule automatiquement la valeur cible entre 2 cellules. Par contre, la valeur à atteindre est désignée par un nom de variable (et non pas sa valeur). L'équation est un polynome de degré 6. Quand je programme basiquement ca:


Dim Variable As Variant

Worksheets("logiciel").Range("B21").GoalSeek Goal:=variable ChangingCell:=Range("B20")

Le résultat obtenu n'est pas le bon et varie à chaque fois. Par contre quand je mets une valeur numérique après Goal, ca concorde.


Si quelqu'un a une idée, je suis preneur

 

[matthieu33]

Re : programmation valeur cible

Bonsoir nounours133,

Pourrais-tu me donner la formule utilisée dans la cellule B21 ?

Merci
@+

 

[aapetrei2000]

Re : programmation valeur cible

Bonjour
J'ai essayé
Worksheets("logiciel").Range("B21").GoalSeek Goal:=Range("C11") ChangingCell:=Range("B20")

et ca a marché.

Par contre, je ne sais pas comment faire pour qu'il le calcule automatiquement qaund je change la valeur de la cellule C11, sans exécuter le macro manuellement. Si quelqu'un le sait, merci de me le dire.