Macro - Automatisation "Garder la solution du solveur"

[Kusco]

Bonjour à tous !

J'ai crée un macro pour automatiser l'utilisation du solveur dans un cas précis (mais qui n'apporte aucune info sur la question).
En gros lorsque je clique sur un bouton, le macro lance le solveur et donc une fenetre apparait "Résultat du solveur" qui me demande si je veux garder la solution ou rétablir les valeurs d'origine. La suite de mon macro s'effectue normalement après avoir cliqué sur ok (dans le but de conserver la solution).

Je voulais savoir s'il était possible de passer cette étape pour que le macro choisisse automatiquement de garder la solution du solveur pour ne pas avoir à cliquer sur ok ?

Le code de mon macro (sans grande importance) est le suivant :

Sub Solveur()

    Range("O3:O9").Select
    Selection.Copy
    Range("O13").Select
    ActiveSheet.Paste
    SolverOk SetCell:="$D$43", MaxMinVal:=3, ValueOf:="0", ByChange:="$O$3:$O$8"
    SolverSolve
    Range("D14:F14").Select
    Selection.Copy
    Range("F43").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("O13:O19").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("O3").Select
    ActiveSheet.Paste
    Range("O13:O19").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    With Selection.Interior
        .ColorIndex = 2
        .Pattern = xlSolid
    End With
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Interior.ColorIndex = 2
    Selection.FormatConditions.Delete
    Range("M18").Select
End Sub

Merci beaucoup !
Bonne journée

 

[mécano41]

Re : Macro - Automatisation "Garder la solution du solveur"

Bonjour,

Avec :

SolverSolve UserFinish:=True

Dans l'aide, il faut demander Solver puis SolverSolve.

Cordialement

 

[Kusco]

Re : Macro - Automatisation "Garder la solution du solveur"

Merci beaucoup !

J'avais trouvé aussi une solution en faisant simplement :

SolverSolve (True)

J'ai fait un doublon avec une solution trouvée ici même :
https://www.excel-downloads.com/threads/solveur-automatisation.61477/

Merci de votre aide