Modifier la ligne de calcul du solveur par une variable muette

Résolu/Fermé

Gopalkri1 Messages postés 20 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 13 février 2018 - 29 juil. 2014 à 16:16
Gopalkri1 Messages postés 20 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 13 février 2018 - 29 juil. 2014 à 17:22

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

A voir également:

Modifier la ligne de calcul du solveur par une variable muette
Modifier liste déroulante excel - Guide
Aller à la ligne excel - Guide
Comment modifier un pdf - Guide
Site de vente en ligne particulier - Guide
Partage de photos en ligne - Guide

6 réponses

Réponse 1 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 29/07/2014 à 16:50

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

Réponse 2 / 6

Gopalkri1 Messages postés 20 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 13 février 2018
29 juil. 2014 à 16:56

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

Réponse 3 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
29 juil. 2014 à 17:05

Re,

Vous n'avez pas bien integre la chose, regardez ce que j'ai ecrit et ce que vous avez transcrit

Réponse 4 / 6

Gopalkri1 Messages postés 20 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 13 février 2018
29 juil. 2014 à 17:09

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

Réponse 5 / 6

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 29/07/2014 à 17:18

Re,

si F2 est dans onglet GENERAL:

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

par contre erreur sur

SolverSolve

module de code ou pas ????

Réponse 6 / 6

Gopalkri1 Messages postés 20 Date d'inscription mardi 29 juillet 2014 Statut Membre Dernière intervention 13 février 2018
29 juil. 2014 à 17:22

Merci bcp ça marche!!!!! c'est très sympa sde m'avoir aidé je te remercie 1000 fois

Discussions similaires

programme qui n'affiche pas le mot secret

Chemin Logo du site de la Cité de l'espace

Que veut dire "correspondant occupé" lors d'un appel ?

Discussions similaires

Newsletters