Macro Excel Solveur

Bonjour à tous et à toutes,

J'essaye de concevoir un bouton Excel qui actualise les résultats d'un solveur Excel. Pour ce faire, j'ai créé un bouton, enregistrer une macro puis affecté cette macro au bouton. Cependant, quand je clique sur le bouton, j'obtiens une erreur : Erreur de compilation: Sub ou Function non définie. Je ne comprends pas cette erreur étant donné que le code a été généré automatiquement par Excel suite à l'enregistrement que j'ai effectué. Pouvez-vous m'aider à débusquer l'erreur ? Voici le code générer par Excel :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro6() ' ' Macro6 Macro '   ' Sheets("Rayon + Rapport de réduction").Select SolverOk SetCell:="$D$8", MaxMinVal:=3, ValueOf:=0.52, ByChange:= _ "$D$3;$D$4;$F$3;$F$4;$H$3;$H$4;$H$5", Engine:=1, EngineDesc:="GRG non linéaire" SolverSolve

---

Merci d'avance,

Salut,

as-tu regardé les informations dispensées dans ce tuto ?
https://jpcheck.developpez.com/tutor...ur-sous-excel/

Tu auras notamment la case Solver à cocher dans les références.

Citation:

---

Envoyé par Jean-Philippe André

Salut,

as-tu regardé les informations dispensées dans ce tuto ?
https://jpcheck.developpez.com/tutor...ur-sous-excel/

Tu auras notamment la case Solver à cocher dans les références.

---

Salut,

J'ai pris connaissance du tutoriel que tu m'as proposé, merci. Cependant, après avoir fait une adaptation (mineure), le programme ne fonctionne toujours pas... Je ne vois pas pourquoi, puisque les instructions suivent le tutoriel, en sachant que le complément solveur est bien coché...

Edit : Voici le programme où j'ai mis la ligne 8 sur une même ligne

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Macro6() ' ' Macro6 Macro '   ' Sheets("Rayon + Rapport de réduction").Select SolverOk SetCell:="$D$8", MaxMinVal:=3, ValueOf:=0.52, ByChange:="$D$3;$D$4;$F$3;$F$4;$H$3;$H$4;$H$5", Engine:=1, EngineDesc:="GRG non linéaire" SolverSolve End Sub

---

Merci pour ton aide,

Tu peux regarder deux choses :
- le nom de l'engine qui est en Francais (ca donnerait "GRG Nonlinear")
- les cellules du ByChange sont séparées par des virgules et non des points-virgules ("," au lieu de ";")

Citation:

---

Envoyé par Jean-Philippe André

Tu peux regarder deux choses :
- le nom de l'engine qui est en Francais (ca donnerait "GRG Nonlinear")
- les cellules du ByChange sont séparées par des virgules et non des points-virgules ("," au lieu de ";")

---

Après avoir fait les changements que tu m'as indiqué, l'erreur est toujours la même...:aie: Voici une capture d'écran du problème :
Pièce jointe 594966
Pièce jointe 594967

As-tu la référence Solver cochée dans tes librairies de code ?

Citation:

---

Envoyé par Jean-Philippe André

As-tu la référence Solver cochée dans tes librairies de code ?

---

Après de multiples tentatives, j'ai fini par réussir à faire ce que je voulais, je pense que le problème venait tout simplement du fait que ce n'était pas la bonne librairie qui était cochée...

En tout cas, je te remercie énormément pour ton aide !
Bonne soirée à toi et encore merci :)