Boucle VBA pour Solveur (ex simple cijoint) Résolu/Fermé

Question

Bonsoir ,

J'ai un petit soucis en VBA pour implémenter le solveur sur un exemple simple.
Lorsque je ne mets pas la contrainte, le code fonctionne, mais lorsque je la mets, il ne fonctionne plus. Savez-vous ce qui ne va pas?

Voici le fichier excel sans la macro (dsl je n'ai pas réussi à enregistrer le fichier avec la macro...) : http://cjoint.com/12dc/BLcvHj4Vo0l.htm

Voici ma macro que je place dans thisworkbook après avoir activé la fonction solver dans outils/références:


Sub solveurauto()
Dim K As Integer

For K = 2 To 4
    SolverOk SetCell:="I" & K, MaxMinVal:=2, ByChange:="G" & K
 
 SolverAdd CellRef:=Range("H") & K, Relation:=2, FormulaText:="20" & K
 
    SolverSolve Userfinish:=True
    
Next
End Sub


Merci pour votre aide!

eriiic · Accepted Answer

Bonsoir,

peut-être ça :
Sub solveurauto()
    Dim K As Integer
    For K = 2 To 4
        SolverOk SetCell:=Range("I" & K), MaxMinVal:=2, ByChange:=Range("G" & K)
        SolverAdd CellRef:=Range("H" & K), Relation:=2, FormulaText:="20"
        SolverSolve Userfinish:=True
    Next
End Sub 
Regarde de plus près FormulaText, je ne sais pas si tu veux 20 ou 20+K vu que tu avais mis : "20" & K
 
Une aide : https://support.microsoft.com/en-us/help/843304

eric

Valoche01 · Answer

Merci pour ton aide eriiic, j'ai encore un petite question pour que tout soit propre !
Comment incrémenter les colonnes et non les lignes si je place mon tableau avec mon solveur dans l'autre sens? J'ai cherché un peu partout mais pas trouvé...

Je remets un fichier avec le tableau dans le sens définitif : http://www.cjoint.com/confirm.php?cjoint=BLdcLwOlFuk

Je sais que ma macro est fausse mais comment faire? (Sinon dans le pire des cas je peux mettre les chiffres en lignes et les lettres en colonne, je pense que ça marcherait mais je préfère garder l'agencement tel quel... )

Sub solveur()
   Dim K As Integer
    For K = G To H
        SolverOk SetCell:=Range("11" & K), MaxMinVal:=2, ByChange:=Range("9" & K)
        SolverAdd CellRef:=Range("10" & K), Relation:=2, FormulaText:="20"
        SolverSolve Userfinish:=True
    Next
End Sub


Merci bien

eriiic · Answer

Bonjour,

au lieu de Range("11" & K) utilises Cells(ligne,colonne)

eric

Valoche01 · Answer

Merci pour ta réponse, j'ai essayé mais je n'y arrive pas...

Sub solveur()
   Dim K As Integer
    For K = G To H
        SolverOk SetCell:=Cells(11, K), MaxMinVal:=2, ByChange:=Cells(9, K)
        SolverAdd CellRef:=Cells(10, K), Relation:=2, FormulaText:="20"
        SolverSolve Userfinish:=True
    Next
End Sub


On peut vraiment incrémenter des lettres?

eriiic · Answer

non, K est le n° de la colonne
col G = 7

Valoche01 · Answer

Suis-je bête ! Merci pour l'info ! J'y suis presque mais ça ne marche toujours pas, le solveur avance bien en colonne mais ne résoud rien, c'est bizarre

Sub solveur()
   Dim K As Integer
    For K = 0 To 4
    
        SolverOk SetCell:=Cells(11, 7 + K), MaxMinVal:=2, ByChange:=Cells(9, 7 + K)
        SolverAdd CellRef:=Cells(10, 7 + K), Relation:=2, FormulaText:="20"
        SolverSolve Userfinish:=True
    Next
End Sub

eriiic · Answer

Tu ne t'es pas trompé entre surface et périmètre ?
De plus pourquoi avoir une ligne périmètre puisque tu ne te sers pas de la cellule vu que tu as mis en dur dans le code =20 ? 
 
eric

Boucle VBA pour Solveur (ex simple cijoint)

7 réponses

Discussions similaires