Bonjour,


je solicite votre aide car je rencontre quelques problèmes avec les contraintes du Solveur sous VBA.

Je voudrais effectuer une boucle pour ajouter une contrainte à chaque cellule (>=0).
Et une contrainte sur la somme de ces cellules (=1).

J'ai essayé le code ci-dessous, cependant cela ne fonctionne pas.
Si quelqu'un saurait de quelle manière écrire le code pour ajouter ce genre de contraintes.


En vous remerciant.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub HaT()

Dim i As Integer

SOLVER.Auto_open

    SolverReset
    SolverOptions precision:=0.001
    SolverOk SetCell:="$E$2", MaxMinVal:=1, ValueOf:="0", ByChange:="$H$2:$H$51"
    
For i = 1 To 51
    SolverAdd CellRef:=Cells(i + 1, 8).Value, Relation:=3, FormulaText:="0"
    Next i
    SolverAdd CellRef:="SUM($H$2:$H$51)", Relation:=1, FormulaText:="1"

    SolverSolve
End Sub