Comment lancer un solver a partir d'un bouton (code vba)
Fermé
Bonjour à tous,
Je suis en plein travail sur un projet d'étude.
Pour celui ci j'ai créé, pour me simplifier la vie, un bouton en vba (sur ma feuille de calcul, pas dans un Userform) qui me permet de faire tous mes calculs d'un coup.
Le problème c'est qu'après avoir fait ces calculs et rempli tous mes tableaux, je dois résoudre un solver.
J'aurais aimé savoir d'il était possible de rajouter un morceau de code dans celui de mon bouton pour lancer le solver sans cliquer sur le "ok" de la boite de dialogue.
Merci de votre aide
Je suis en plein travail sur un projet d'étude.
Pour celui ci j'ai créé, pour me simplifier la vie, un bouton en vba (sur ma feuille de calcul, pas dans un Userform) qui me permet de faire tous mes calculs d'un coup.
Le problème c'est qu'après avoir fait ces calculs et rempli tous mes tableaux, je dois résoudre un solver.
J'aurais aimé savoir d'il était possible de rajouter un morceau de code dans celui de mon bouton pour lancer le solver sans cliquer sur le "ok" de la boite de dialogue.
Merci de votre aide
A voir également:
- Comment lancer un solver a partir d'un bouton (code vba)
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code ascii de a à z - Guide
- Comment débloquer un code puk - Guide
- Comment créer un qr code - Guide
- Comment faire une recherche à partir d'une photo - Guide
1 réponse
J'ai créé une macro, ca m'a l'air juste mais je ne sais toujours pas comment la lancer a partir de mon bouton...
Sub Macro1()
SolverOk SetCell:="$J$19", MaxMinVal:=1, ByChange:="$D$16:$D$21"
SolverAdd CellRef:=Range("D16:D21"), Relation:=2, FormulaText:=entier
SolverAdd CellRef:="$J$16", Relation:=1, FormulaText:="$J$15"
SolverFinish KeepFinal:=1
SolverSolve UserFinish:=True
End Sub
Sub Macro1()
SolverOk SetCell:="$J$19", MaxMinVal:=1, ByChange:="$D$16:$D$21"
SolverAdd CellRef:=Range("D16:D21"), Relation:=2, FormulaText:=entier
SolverAdd CellRef:="$J$16", Relation:=1, FormulaText:="$J$15"
SolverFinish KeepFinal:=1
SolverSolve UserFinish:=True
End Sub