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:
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18Sub 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
