solveur

job75

XLDnaute Barbatruc

• 14 Novembre 2009

• #2

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+

 

Vote positif 0 Vote négatif

E

eddy13t

Guest

• 14 Novembre 2009

• #3

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 14 Novembre 2009

• #4

Re : solveur

Bonjour à tous,
salut Job 🙂,

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

A++
A+ à tous

 

Pièces jointes

• Solveur Gael XLD.xls

  23 KB · Affichages: 66

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Novembre 2009

• #5

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+

 

Dernière édition: 14 Novembre 2009

Vote positif 0 Vote négatif

E

eddy13t

Guest

• 14 Novembre 2009

• #6

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.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Novembre 2009

• #7

Re : solveur

Re,

Juste pour saluer JCGL 🙂

Pour le reste je ne sais pas.

A+

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 14 Novembre 2009

• #8

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

 

Vote positif 0 Vote négatif