Erreur d'execution 1004

[edjo123]

Bonjour le forum

J'écris cette macro et elle me renvoie systématiquement une erreur d'éxécution 1004 : référence non valide et je ne comprends pas pourquoi

Quelqu'un aurait il une idée, Voila le code :

Sub GoalSeek1()
StartProgram
Range("OptionNumber").Value = 1
Range("GoalSeekCell").GoalSeek Goal:=Range("GoalSeekValue"), ChangingCell:=Range("GoalSeekPremium1") Update
EndProgram
End Sub



L'errur apparaît à la ligne que j'ai marqué en rouge.

Merci d'avance pour votre aide.

 

[edjo123]

Re : Erreur d'execution 1004

Vraiment aucune idée ??? Chui coincée

 

[JNP]

Re : Erreur d'execution 1004

Bonjour Edjo123 ,
En ce qui concerne ta ligne en rouge, un test fait chez moi fonctionne parfaitement (voir pièce jointe). Maintenant, tout dépends du reste de ton fichier et de tes macros... Un petit fichier joint serait certainement plus pratique...
Bon courage