EXCEL VBA Exécuter le Solveur Sur Plusieurs lignes à l'Aide d'une Boucle

Salut à Tous: je suis complètement nouvelle marque pour VBA, j'ai donc utilisé un enregistreur de macro pour aider à obtenir une idée du code que je veux.
Toutes mes entrées dans le Solveur sont dans une ligne (par exemple, ligne 19 de ma feuille de calcul). Mon objectif de la cellule est dans la colonne R, la décision de cellules dans les colonnes E et F et que la contrainte est dans la colonne G. j'ai fini par la création de lignes d'entrée, disons, 10, avec 10 fonctions objectives tous dans la colonne R etc...
Je veux garder les colonnes fixes, mais de créer une boucle qui passe en boucle sur les 10 lignes, l'exécution du solveur pour chaque ligne, puis se réinitialise et exécute la ligne suivante. Lorsqu'il atteint la ligne 10, il vérifie si $R29 est "" si donc il s'arrête en cours d'exécution.

Je sais que je devrais probablement utiliser une certaine forme de "Do While Cells(Ligne,1) <> "" " contruction, mais je suis à une perd de la façon de créer cette boucle simple en VBA.
Merci

    Sub RR_SC_OPTIMIZER()
'
' RR_SC_OPTIMIZER Macro
'

'
    SolverOk SetCell:="$R$19", MaxMinVal:=2, ValueOf:=0, ByChange:="$E$19:$F$19", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverAdd CellRef:="$E$19", Relation:=1, FormulaText:="$G$19"
    SolverOk SetCell:="$R$19", MaxMinVal:=2, ValueOf:=0, ByChange:="$E$19:$F$19", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverOk SetCell:="$R$19", MaxMinVal:=2, ValueOf:=0, ByChange:="$E$19:$F$19", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
    SolverSolve
    SolverOk SetCell:="$R$19", MaxMinVal:=2, ValueOf:=0, ByChange:="$E$19:$F$19", _
        Engine:=1, EngineDesc:="GRG Nonlinear"
End Sub
InformationsquelleAutor EricBayes | 2015-07-13
  1. 0

    Vous pouvez essayer le script suivant (non testé):

    Sub RR_SC_OPTIMIZER()

    Dim rngObjectCells As Range
    Set rngObjectCells = Range("R19:R28")

    Dim rngObjectCell As Range

    For Each rngObjectCell In rngObjectCells

        SolverReset
        SolverOk SetCell:=rngObjectCell.Address, MaxMinVal:=2, ValueOf:=0, ByChange:=rngObjectCell.Offset(0, -13).Range("A1:B1").Address, _
            Engine:=1, EngineDesc:="GRG Nonlinear"
        SolverAdd CellRef:=rngObjectCell.Offset(0, -13).Address, Relation:=1, FormulaText:=rngObjectCell.Offset(0, -11).Address
        SolverOk SetCell:=rngObjectCell.Address, MaxMinVal:=2, ValueOf:=0, ByChange:=rngObjectCell.Offset(0, -13).Range("A1:B1").Address, _
            Engine:=1, EngineDesc:="GRG Nonlinear"
        SolverOk SetCell:=rngObjectCell.Address, MaxMinVal:=2, ValueOf:=0, ByChange:=rngObjectCell.Offset(0, -13).Range("A1:B1").Address, _
            Engine:=1, EngineDesc:="GRG Nonlinear"
        SolverSolve
        SolverOk SetCell:=rngObjectCell.Address, MaxMinVal:=2, ValueOf:=0, ByChange:=rngObjectCell.Offset(0, -13).Range("A1:B1").Address, _
            Engine:=1, EngineDesc:="GRG Nonlinear"

    Next

End Sub

    Fondamentalement, vous êtes en boucle par le biais de votre codé en dur gamme R19:R28 (pas R29 que cela rendrait 11 Lignes) et à chaque valeur dans la colonne R vous exécutez un Solveur. Toutes les références dans le solveur sont maintenant basés sur la cellule de votre passez en boucle. Espérons que cela sert votre but. En ce qui concerne,

    • Merci beaucoup nbayly! Je vais tester le code et je laisserai le dépassement de savoir si elle répond au problème ou conduit dans une grande direction. J'ai vraiment l'apprécier.
    • Heureux de vous aider 🙂
    InformationsquelleAutor nbayly