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 : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If [D10] = 1 Then
Bouton1_Cliquer
End If
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
Sub Bouton1_Cliquer()
    Macro7
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
Sub Macro7()
'
' Macro7 Macro
'
 
'
    'Range("D8").Select
    SolverOk SetCell:=[D8], MaxMinVal:=3, ValueOf:=[D12].Value, ByChange:="$D$5:$D$7"
SolverSolve
 
End Sub
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 :
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.

Nonno 94.