Kusco
XLDnaute Nouveau
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 :
Merci beaucoup !
Bonne journée
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 :
Code:
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