XL 2019 erreur sur Macro VBA utilisant Goal Seek

[Wotan75012]

Bonjour à tous,

Je tente actuellement de définir une macro permettant de calculer un taux cible d'un instrument financier, sans utiliser la fonction YIELD.
Mais lorsque j'utilise le formule de Valeur Cible "Goal Seek", j'ai un problème d'erreur 1004 "Référence non valide".
Je ne comprends pas pourquoi ?

Quelqu'un a-t'il une idée pour debugger cette macro SVP ?

En pièce jointe, le fichier macro

Je vous remercie par avances de vos idées et je vous souhaite une bonne journée

Wotan 75012

 

[sylvanu]

Bonjour Wotan,

Quelqu'un a-t'il une idée pour debugger cette macro SVP ?

Encore faudrait il qu'il y ait une macro! 🤣

 

[Wotan75012]

Rebonjour à tous,

désolé, je commence mal sur le Forum.
Merci à Sylvanu de m'avoir fait remarqué que mon fichier précédent était la version sans macro. ! 😱
Voici la version correcte du fichier avec le Code VBA

Je tente actuellement de définir une macro permettant de calculer un taux cible d'un instrument financier, sans utiliser la fonction YIELD.
Mais lorsque j'utilise le formule de Valeur Cible "Goal Seek", j'ai un problème d'erreur 1004 "Référence non valide".
Je ne comprends pas pourquoi ?

Quelqu'un a-t'il une idée pour debugger cette macro SVP ?

En pièce jointe, le fichier avec macro

Je vous remercie par avances de vos idées et je vous souhaite une bonne journée

Wotan 75012

 

[sylvanu]

Bonjour Wotan,
En faisant un test d'enregistrement macro sur le solver, on s'aperçoit que votre syntaxe de ByChange n'est pas bonne, et il manque un "=" pour SetCell :

SolverOk SetCell: Range ("D" & (X + i - 1)), MaxMinVal:=3, ValueOf:=0, ByChange:=Range("$B$6")

ainsi la formule ne donne pas d'erreur :

SolverOk SetCell:=Range("D" & (X + i - 1)), MaxMinVal:=3, ValueOf:=0, ByChange:="$B$6"

Ce qui ne garantit pas que le résultat est correct, je n'ai rien compris à la finalité. 😅😂🤣

 

[Wotan75012]

Bonjour Sylvanu,

La macro est débuggée grâce à ton aide sur la Syntaxe.
Surtout maintenant que j'ai activé Solveur dans le bon module Compléments de VBA !

En ce qui concerne la finalité: je crée ce sous-module "Solver" pour la coupler avec une autre macro, calculant les dates de flux d'un instrument financier de taux.

Encore merci de ton aide.👍

Bonne Soirée.