Bonjour à tous.
Il cherche à recréer la macro "Valeur cible" en VB6.
La macro "valeur cible" est une fonction qui cherche à déterminer la valeur à mettre dans une cellule source pour obtenir un certain résultat dans une cellule cible.
La macro modifie la cellule source, recalcule la feuille en son entier, compare la valeur de la cellule cible avec la valeur recherchée, et continu jusqu'a avoir trouvé. (enfin presque).
Pour réaliser cette fonction, il faut déterminer le sens d'action des modifications de la cellule source. ( c'est pourquoi en cas de calcul trop complexe, la fonction se plante).
V = valeur cible.
Mettre une valeur faible (S1) dans la cellule source, recalculer, noter la valeur de la cellule cible (C1).
Mettre une valeur forte (S2) dans la cellule source, recalculer, noter la valeur de la cellule cible (C2).
Si C1>C2 alors la fonction est directe.
Si C1<C2 alors la fonction est inverse.
Si C1=C2, ben c'est que la feuille ne calcule pas la cellule cible. ;-)
Si directe:
si C>V alors prendre le milieu entre S et sa valeur précédente.
si C<V alors augmenter S par exemple en le multipliant par 2.
Si inverse:
si C<V alors prendre le milieu entre S et sa valeur précédente.
si C>V alors augmenter S par exemple en le multipliant par 2.
Boucler jusqu'à résultat.
Attention à mettre un compteur, qui arrétera la fonction au bout d'un temps, car, par la calcul pourrait parfois s'éterniser. :-)
J'attend vos remarques et suggestions.
Virtuellement vôtre !!! ;-))