Modifier la ligne de calcul du solveur par une variable muette
Résolu
Gopalkri1
Messages postés
20
Statut
Membre
-
Gopalkri1 Messages postés 20 Statut Membre -
Gopalkri1 Messages postés 20 Statut Membre -
Bonjour merci de m'accepter sur votre forum!
Je voudrais prendre la valeur numérique définit dans une cellule que j'appel "i" dans mon code, afin de faire varier la ligne de calcul du Solveur!
La cellule ou je mets la valeur est "F2"
Dim i As Integer
i = Range("F2").Value
SolverOk SetCell:="$CI$i", MaxMinVal:=3, ValueOf:="0", ByChange:="$CH$i"
SolverSolve
End Sub
Difficultée! le solveur ne considère pas mon programme, il reste sur la ligne définit lorsque je fais Données --> Solveur --> et en saisissant à la main la ligne à considérer.
Pouvez vous m'aider s'il vous plait!!
d'avance merci
Je voudrais prendre la valeur numérique définit dans une cellule que j'appel "i" dans mon code, afin de faire varier la ligne de calcul du Solveur!
La cellule ou je mets la valeur est "F2"
Dim i As Integer
i = Range("F2").Value
SolverOk SetCell:="$CI$i", MaxMinVal:=3, ValueOf:="0", ByChange:="$CH$i"
SolverSolve
End Sub
Difficultée! le solveur ne considère pas mon programme, il reste sur la ligne définit lorsque je fais Données --> Solveur --> et en saisissant à la main la ligne à considérer.
Pouvez vous m'aider s'il vous plait!!
d'avance merci
6 réponses
-
Bonjour,
pour la valeur de i siot prise en compte, il faut l'integree en tant que variable et non texte.
SolverOK SetCell:="$CI$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$CH$" & i
-
Merci f894009
Mais lorsque je lance la macro c'est le calcul de l'adresse du solveur issue de donnée-->Solveur tec... qui reste valide. par exemple je lui demande de calculer la ligne 37 le solveur continu de calculer la ligne 36!
Intégration de ta remarque!
Dim i
i = Range("F2").Value
Sheets("GENERAL").Select
SolverOk SetCell:="$CI$ & i", MaxMinVal:=3, ValueOf:="0", ByChange:="$CH$ & i"
SolverSolve
End Sub -
Re,
Vous n'avez pas bien integre la chose, regardez ce que j'ai ecrit et ce que vous avez transcrit -
Oui merci vous avez raison
J'ai fais la modification!
Pour autant je n'arrive pas à aller chercher la valeur qui ce trouve dans la cellule "F2"
Pouvez vous m'aider encore un peit peu s'il vous plait
Merci
Dim i
i = Range("F2").Value
Sheets("GENERAL").Select
SolverOk SetCell:="$CI$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$CH$" & i
SolverSolve
End Sub -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re,
si F2 est dans onglet GENERAL:
Sheets("GENERAL").Select
i = Range("F2").Value
par contre erreur surSolverSolve
module de code ou pas ???? -
Merci bcp ça marche!!!!! c'est très sympa sde m'avoir aidé je te remercie 1000 fois
