solveur

[eddy13t]

Bonjour, voila j'ai un petit problème avec le solveur...
Il y l'option min,max et valeur moi je veux "valeur" mais la valeur est une variable et donc elle change en fontion de ce que j'ai entré dans Excel, seulement ça ne marche pas, à chaque fois que je change de valeur à atteindre il faut que je le change dans le solveur.
En gros, j'aimerai que la valeur soit égale à une cellule dans excel...

Merci

 

[job75]

Re : solveur

Bonjour eddy13t

Il faut passer par VBA.

Avec Cellule à définir = A1, Valeur à atteindre = 10 et Cellule à modifier = A2, l'enregistreur de macro donne le code :

Range("A1").GoalSeek Goal:=10, ChangingCell:=Range("A2")

Donc dans votre macro, si la valeur à atteindre est dans la cellule cel :

Range("A1").GoalSeek Goal:=cel, ChangingCell:=Range("A2")

A+

 

[eddy13t]

Re : solveur

Mon enregistreur de macro me donne ce code plutot:

SolverOk SetCell:="$I$37", MaxMinVal:=3, ValueOf:="12000", ByChange:= _
"$H$32:$H$36"
SolverAdd CellRef:="$H$32:$H$36", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$H$32:$H$36", Relation:=4, FormulaText:="entier"
SolverOk SetCell:="$I$37", MaxMinVal:=3, ValueOf:="2000", ByChange:= _
"$H$32:$H$36"
SolverSolve
End Sub

Je dois remplacer ValueOf par votre fonction?


Merci

 

[JCGL]

Re : solveur

Bonjour à tous,
salut Job 🙂,

Un classeur de Gaël 🙂
Que je ne pourrais pas expliquer 😱

A++
A+ à tous

 

[job75]

Re : solveur

Re,

Avec Excel 2003, je ne peux pas obtenir ce code [Edit : en fait il fallait charger la macro complémentaire "Complément solveur"], mais peu importe.

Le principe est toujours le même : paramétrer dans le code ce que l'on veut faire varier.

Donc en effet remplacer la valeur de ValueOf par cel, cel étant préalablement définie dans votre macro.

A+

 

[eddy13t]

Re : solveur

oui j'ai bien compris et j'ai déja essayé le pb est que ça ne marche pas le solveur ne veut pas reconnaître la valeur à atteindre... il me met 0 directement.

 

[job75]

Re : solveur

Re,

Juste pour saluer JCGL 🙂

Pour le reste je ne sais pas.

A+

 

[mécano41]

Re : solveur

Bonjour,


Essaie en nommant, par ex., "ValEgale", la cellule de la feuille contenant la valeur à mettre dans le solveur, puis en ajoutant ces deux lignes :

Dim Valeur as Single (ou Long si c'est un entier)
Valeur=range("ValEgale").value

et enfin en utilisant la variable Valeur, ici dans ValueOf

SolverOk SetCell:="$I$37", MaxMinVal:=3, ValueOf:=Valeur, ByChange:= _
"$H$32:$H$36"
SolverAdd CellRef:="$H$32:$H$36", Relation:=3, FormulaText:="0"
SolverAdd CellRef:="$H$32:$H$36", Relation:=4, FormulaText:="entier"
SolverSolve

(et supprime la 2ème apparition de la ligne SolverOk SetCell:=...)

Cordialement