Discussion :

[Gordon72]

Bonsoir,

Je sollicite une aide s'il-vous plait pour savoir juste si il était possible de définir une action selon le résultat d'une fenêtre Solver. Je veux dire que si le Solver trouve une solution alors VBA exécute une macro juste derrière, si il ne converge pas alors une autre macro... J'ai bien essayé d'appliquer des mises en forme avec un V à côté des cellules étant dans les conditions du Solver (si conditions validées), un X si conditions non validées et ensuite de dire que si il n'y a que des V dans les cases alors on fait la macro suivante mais c'est pas très pro et en plus certaines des cellules appelées dans le solveur sont cachées pour pas qu'on voit les étapes de calcul .

J'aimerais donc trouver un moyen de dire à Excel que si la fenêtre "Le solveur n'a pas trouvé de solution..." apparaît alors macro1, si la fenêtre "Le solveur a trouvé..." alors macro2.
J'ai rien trouvé la dessus sauf la commande UserFinish mais qui elle me permet uniquement de valider la fenêtre.

Merci d'avance pour toute réponse éventuelle.

Bonne soirée,
Cdlt.

[had4789]

Bonjour,

Peux-tu me dire ce que te renvois le solver quand "il ne trouve pas se solution".

[Gordon72]

Alors si il ne converge pas il renvoie



Si il converge il renvoie

[had4789]

Regardes ce liens,

http://msdn.microsoft.com/fr-fr/libr...ffice.15).aspx

Si tu affiches le résultat dans une cellule tu as un #N/A dans le cas où il n'y a pas de solution?

Regardes le code que te renvois l'enregistreur de macro en cas de solution non trouvée.

Si il te renvois une référence, tu peux l'utiliser dans un if.

[Gordon72]

Tout d'abord merci pour les réponses.

Je vois où tu veux en venir mais je ne sais pas trop comment faire pour renvoyer la réponse du solveur en fait. Sur le lien que tu m'as donné il y a un truc super interressant (exactement ce que je cherche), c'est le renvoi du chiffre entre 0 et 20.

Je souhaiterais en fait executer une maccro si le chiffre renvoyé est 5 "Le Solveur ne peut pas trouver de solution réalisable." ou si c'est 0 "Le solveur a trouvé une solution.Tous les contraintes et les conditions d'optimalité sont respectées." ou 1 "Le solveur a convergé à la solution actuelle.Tous les contraintes sont satisfaites."

Mais comment accéder à ce chiffre ?

[had4789]

Mais comment accéder à ce chiffre ?

Pour moi le plus simple c'est l'enregistreur de macro.

Tu fais ta procédures "à la main" pour un cas où tu es certains de ne pas avoir de solution. Après tu regardes dans ta macro ce que ça donne et tu récupères la partie qui t'intéresse.

Sinon poste le code complet et je regarderai.

[Jean-Philippe André]

Salut,

je te recommande un peu de lecture
http://jpcheck.developpez.com/tutori...ur-sous-excel/

[Gordon72]

Pour moi le plus simple c'est l'enregistreur de macro.

Tu fais ta procédures "à la main" pour un cas où tu es certains de ne pas avoir de solution. Après tu regardes dans ta macro ce que ça donne et tu récupères la partie qui t'intéresse.

Sinon poste le code complet et je regarderai.

Alors voilà j'ai fais un petit code très basique et rapide juste pour illustrer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
 
    SolverReset
 
    SolverOk SetCell:="$D$4", MaxMinVal:=2, ValueOf:=0, ByChange:="$D$4", Engine:=1 _
        , EngineDesc:="GRG Nonlinear"
 
    SolverAdd CellRef:="$D$4", Relation:=3, FormulaText:="$D$5"
    SolverAdd CellRef:="$D$4", Relation:=1, FormulaText:="$D$6"
    SolverAdd CellRef:="$D$7", Relation:=1, FormulaText:="$D$6"
 
    SolverSolve
 
End Sub

En gros, trouver D4 min tel que D4>= D5, D4<=D6 et D7<=D6. Donc ça marche si D6>2*D4 sinon ça marche pas.

Comme j'ai en réalité beaucoup de conditions avec des solvers qui se succèdent, j'aimerais dire que si le solver ne trouve pas de solution alors on sort de la macro et on met par exemple une MsgBox où un truc du genre quoi.

Ci-joint le fichier:

Solver.rar