Discussion :

[Nonno 94]

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.

[Invité]

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Nonno 94]

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

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.

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Nonno 94]

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.