Bonjour le Forum,
je viens solliciter votre aide pour modifier le ou les codes qui me permettront de lancer le Solveur.
Les codes que j'utilise actuellement sont les suivants :
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [D10] = 1 Then
Bouton1_Cliquer
End If
End Sub
Code:
Sub Bouton1_Cliquer()
Macro7
End Sub
Code:
Sub Macro7()
'
' Macro7 Macro
'
'
'Range("D8").Select
SolverOk SetCell:=[D8], MaxMinVal:=3, ValueOf:=[D12].Value, ByChange:="$D$5:$D$7"
SolverSolve
End Sub
La nouvelle Valeur (marge) est saisie dans la cellule [D12] et le Solveur est lancé lorsque la valeur de la Cellule [D10] est égale à 1.
Malheureusement, s'affiche alors dans la fenêtre du Solveur le message suivant :
HTML:
Une autre instance d'Excel utilise SOLVER.DLL. Essayez à nouveau plus tard.
Je n'en comprends pas la raison.
Si je lance le Solveur en cliquant sur le bouton 1 "Nouvelle marge", le Solveur fonctionne normalement.
Pouvez-vous me dire ce qui ne va pas dans mes codes pour que le Solveur soit lancé lorsque la valeur de la cellule (D10] est égale à 1 ?
Afin de vous permettre de mieux comprendre mon problème, je vous joins le fichier concerné.
Avec mes remerciements et en vous souhaitant une bonne fin de journée.
Cordialement.