Modifier la ligne de calcul du solveur par une variable muette

Résolu
Gopalkri1 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -  
Gopalkri1 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention   -
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

6 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
Gopalkri1 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

Vous n'avez pas bien integre la chose, regardez ce que j'ai ecrit et ce que vous avez transcrit
0
Gopalkri1 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention  
 
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,

si F2 est dans onglet GENERAL:

Sheets("GENERAL").Select
i = Range("F2").Value

par contre erreur sur
SolverSolve 
module de code ou pas ????
0
Gopalkri1 Messages postés 20 Date d'inscription   Statut Membre Dernière intervention  
 
Merci bcp ça marche!!!!! c'est très sympa sde m'avoir aidé je te remercie 1000 fois
0