Macro pour lancer le solveur

:oops::oops: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:

---

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:

---

1 2 3

Sub Bouton1_Cliquer() Macro7 End Sub

---

Code:

---

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 :

Citation:

---

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.

Tu boucles sur ta procédure à chaque fois qu'une valeur change.

Utiliser ce code devrait résoudre ton problème:

Code:

---

1 2 3 4 5 6 7 8 9

Option Explicit   Private Sub CommandButton1_Click() Macro7 End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range) If [D10] = 1 Then Macro7 End Sub

---

Code:

---

1 2 3 4 5 6 7 8

Option Explicit   Public Sub Macro7() Application.EnableEvents = False SolverOk SetCell:=[D8], MaxMinVal:=3, ValueOf:=[D12].Value, ByChange:="$D$5:$D$7" SolverSolve Application.EnableEvents = True End Sub

---

Mais la condition pour rentrer dans l'évènement 'Worksheet_SelectionChange' n'est pas assez stricte.

Bonjour vcottineau et une nouvelle fois tous mes remerciements pour votre réponse pertinente.

Citation:

---

Mais la condition pour rentrer dans l'évènement 'Worksheet_SelectionChange' n'est pas assez stricte.

---

Que suggérez-vous ?
En ce qui me concerne, vos Codes me satisfont pleinement.

Je trouve plus logique d'utiliser l'événement 'Worksheet_Change' comme ceci:

Code:

---

1 2 3

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = [D10].Address And [D10] = 1 Then Macro7 End Sub

---

Mais peut être que ton besoin est différent.

Je vais conserver la 1 ère version car elle répond parfaitement à ma demande.
Merci encore pour votre patience et bonne fin de journée.

Nonno 94.