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