Discussion :

[wouudyy]

Bonjour,

J'ai programmé un Solver sous vba qui répond á une équation á 4 inconnus. Dans un premier fichier, je veux que mes valeurs cherchées soient impérativement des entiers j'ai donc mis ex: solveradd cellref:=Range("B11"), relation:=4 et cela fonctionne parfaitement.

Dans un second fichier, je veux cette fois ci que mes quatres valeurs cherchées soient des entiers OU des déciles (10.1; 10.2; 10.3.....). Je precise bien que je ne cherche pas á faire un arrondi (exemple : 10.276...=10.3). Il faut que le solver trouve la valeur exacte.
Auriez-vous une idée sur la maniére dont je pourrais programmer cette contrainte ?

Par avance merci

[Jean-Philippe André]

Salut,

tu peux faire en sorte que 10*valeur soit un entier, et meme que valeur*10 modulo 10 > 0 si tu refuses les valeurs entieres de depart

[wouudyy]

Je suis désolé Jean Philippe, je n'ai pas du tout compris ta méthode pour formuler ma contrainte

[Jean-Philippe André]

mes quatres valeurs cherchées soient des entiers OU des déciles (10.1; 10.2; 10.3.....).

si je pars du principe que les cellules cibles sont A1, B1,C1 et D1.

Pour que cela soit des entiers, il te faut alors faire une formule en A2->D2
=A1*10

et tu places une contrainte ENTIER sur les cellules A2 à D2

[wouudyy]

Merci pour ton retour. J'ai compris ou tu voulais en venir et j'ai testé ta technique. Malheureusement dans mes cellules cibles, lorsque je lance mon solveur ce dernier me sort un resultat avec X chiffres derrieres la virgule (ex: 125.0257406...) meme si mes cellules n'affichent que un chiffre apres la virgule, ce qui rend ta technique inutilisable dans cette situation car si je mets dans une autre cellule valeur *10 cela ne me donnera pas un integer.

[Jean-Philippe André]

Alors passe par une fonction personnelle, qui te retourne un booleen, dans laquelle tu fais le test qui te convient, et tu mets le resultat dans une cellule en y mettant une contrainte

[wouudyy]

Merci pour le retour. Sur ce coup mes compétences en vba sont mises à rudes épreuves. Je ne vois vraiment pas quel genre de fonction pourrait m'aider à coder cette contrainte. Quelqu'un aurait un petit coup de pouce à me donner svp ?
Par avance merci

[Jean-Philippe André]

Un exemple sur une cellule passée en parametre

Code :

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

1
2
3
4
5
6
7
Function EstValide(Rng As Range) As Boolean
If Round(Rng.Value*10,0)=Rng.Value*10 Then
EstValide=True
Else
EstValide=False
End If
End Function

[wouudyy]

Merci !
Alors j ai implémenté la fonction et j ai essayé d'insérer mes deux nouvelles contraintes.

solveradd cellref:=Range("B24"), relation:=2, formulatext:=Range("B23") 'test
solveradd cellref:=Range("B25"), relation:=2, formulatext:=Range("B23") 'test

J ai appliqué la formule dans les cellules B24 et B25 et j ai simplement ecris "TRUE" en B23 car je veux que ma condition soit remplie si "TRUE".

Le soucis c'est que le solver ne reconnais pas cette condition Boolean avec relation:=2 (qui veut dire =).

Je ne vois pas trop comment insérer cette condition en ne passant pas par relation:=2

[Jean-Philippe André]

Tu disposes d'une version Fr ou anglophone ?

as-tu essayé VRAI, sans les guillemets ?

[wouudyy]

Anglophone.
Je n'ai pas mis de guillemets simplement TRUE dans la cellule test.

[Jean-Philippe André]

Ca ressemble a quoi ton code actuel stp ? car là j'avoue ne plus trop savoir à quelle étape on en est...

[wouudyy]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
SolverOk SetCell:=Range("B17"), MaxMinVal:=3, ValueOf:=Range("B7").Value, ByChange:=Range("B11:B14"), Engine:=1, EngineDesc:="GRG Nonlinear"
 
solveradd cellref:=Range("B11"), relation:=4 'integer condition 
solveradd cellref:=Range("B13"), relation:=4 'integer condition
solveradd cellref:=Range("B16"), relation:=2, formulatext:=Range("B6") 'relation 3 = superieur ou egale
solveradd cellref:=Range("B11"), relation:=3, formulatext:=Range("G5")
solveradd cellref:=Range("B12"), relation:=3, formulatext:=Range("G8")
solveradd cellref:=Range("B12"), relation:=1, formulatext:=Range("G7")
solveradd cellref:=Range("B13"), relation:=3, formulatext:=Range("G5")
solveradd cellref:=Range("B14"), relation:=3, formulatext:=Range("G8")
solveradd cellref:=Range("B14"), relation:=1, formulatext:=Range("G7")
solveradd cellref:=Range("B24"), relation:=2, formulatext:=Range("B23") 'test function boolean
solveradd cellref:=Range("B25"), relation:=2, formulatext:=Range("B23") 'test function boolean
 
 
SolverSolve

Pour rappel, j'essaie d avoir une contrainte sur B12 et B14 comme quoi le solver aille chercher l integer ou le décile exacte (127.1 ; 127.2; ect ect pas d arrondi).

[Jean-Philippe André]

OK, et quel est ton code de la fonction booleenne ?

[wouudyy]

Code :

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

1
2
3
4
5
Function EstValide(Rng As Range) As Boolean
If Round(Rng.Value * 10) = Rng.Value * 10 Then
EstValide = True
End If
End Function

J ai appliqué cette fonction sur les cells B24 B25 avec comme parametres respectivement les cellules B12 B14. Je precise que la fonction marche bien c est dans la partie solver que ca ne prend pas.

[wouudyy]

Bonjour, j'espère que vous avez passer un bon week-end de pâques.
Personne n'a de solutions complémentaires à mon soucis ? J'ai essayé la méthode boolean function et round(valeur*10;0) =valeur mais rien n'y fait

[Jean-Philippe André]

Salut,

as-tu fait des tentatives pour contourner le VRAI/TRUE ?

Par exemple avec une formule qui retourne une valeur numérique

=SI(TaFonction(TaCellule);1;0)

et une contrainte numérique...

Même si le fond du problème n'est pas résolu, il faut chercher à contourner un problème quand on ne sait pas le résoudre simplement...

[wouudyy]

Voilà un exemple. Mon solver doit chercher 4 inconnus qui sont en orange dans le fichier dans le but de répondre à l'équation suivante : ((Niveau X * Prix X) + (Niveau Y / Prix Y))/(Niveau X + Niveau Y) = 124.890

Les contraintes sont les suivantes:

Niveau X Niveau Y > Size min

Niveau X Niveau Y = Integers

Futur Spread low < Prix X Prix Y < Futur spread high

Price X et Price Y doivent etre soit des entiers ou un nombre comportant un chiffre décimal (non arrondi)

Dans cet exemple si je prends:
Niveau X = 450
Niveau Y = 4050
Prix X = 124.8
Prix Y = 124.9

L'équation serait résolue et les contraintes seraient respectées. Cependant le solver continue de me trouver des valeurs en dehors de mes contraintes notamment la dernière.

Je ne comprend pas pourquoi mon solver ne prend pas en compte cette dernière condition (soit avec la fonction boolean = True soit avec la methode du round.

Pour te répondre Jean-Philippe (merci de ton retour by the way) j'ai effectivement transformé ma fonction boolean en integer pour voir ce que cela donnait mais le resultat est le même.... le solver ne prend pas du tout en compte ce dernier point.

[Jean-Philippe André]

Tes contraintes sont mauvaises, par exemple tu fixes comme contrainte
B12<=124.989912....
alors que ca vaut 4050 dans ton exemple.

D'autre part, tu mets des valeurs numérique dans ton code au lieu de mettre les cellules
exemple

Code :

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

formulatext:=Range("G8")

au lieu de

Code :

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

formulatext:="G8"

Vérifie chacune des contraintes pour commencer

[wouudyy]

Merci pour ton retour. Je ne savais pas qu'il y avait une difference entre Range("G8") et "G8" (je me coucherai moins bête ce soir )

Je me permet de te corriger, je n'ai pas fais d'erreur vis à vis de la cellule B12. Les niveaux (450 et 4050) concernent les cellules B11 et B13.

Alors j'ai tout modifié comme tu me l'as conseillé (on voit la difference en lancant le solveur manuellement, on ne voit plus les valeurs numériques mais bien les cellules maintenant) par contre .... malheureusement... le problème persiste avec chacune de mes methodes