Bonjour,
J'ai dans mon tableau excel des cellules dont le fond est rouge et elles ne sont pas toujours au même endroit. J'ai utilisé une fonction for pour lister les cellules et j'aimerai injecter ces cellules dans les "cellules variables" du solveur mais j'avoue coincé un peu.
Je ne vois pas quoi mettre dans "ByChange".
J'ai dans mon tableau excel des cellules dont le fond est rouge et elles ne sont pas toujours au même endroit. J'ai utilisé une fonction for pour lister les cellules et j'aimerai injecter ces cellules dans les "cellules variables" du solveur mais j'avoue coincé un peu.
Code:
For Each Cell In Sheets("Feuil1").Range("B2:D16")
If Cell.Interior.Color = 255 Then
SolverOK SetCell:=Range("J2"), MaxMinVal:=3, ValueOf:=0,
ByChange:=Cell.Value
End If
Next
SolverAdd CellRef:=Range("J2"), Relation:=2, FormulaText:=0
SolverAdd CellRef:=Range("J3"), Relation:=2, FormulaText:=0