Discussion :

[the_programmeur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[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.

[the_programmeur]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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,

[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 ";")

[the_programmeur]

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... Voici une capture d'écran du problème :

[Jean-Philippe André]

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

[the_programmeur]

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