programmation valeur cible

nounours133

XLDnaute Nouveau
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
 

aapetrei2000

XLDnaute Nouveau
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.
 

Discussions similaires

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof