Specialized
XLDnaute Nouveau
Bonjour,
je travaille en ce moment sur un tableau de répartition de charges (Ordres de Fabrication) sur les différents jours de la semaine.
Dans le cadre de ce travail, je me suis essayé au solveur, lequel j´aimerais utilisé en boucle dans une macro, j´ai donc tenté la chose suivante:
Sub Makro3()
'
' Makro3 Makro
'
'
SolverOk SetCell:="$R$11", MaxMinVal:=3, ValueOf:="0", ByChange:="$I$11:$Q$11"
SolverAdd CellRef:="$I$11:$Q$11", Relation:=4, FormulaText:="Ganzzahlig"
SolverAdd CellRef:="$I$11:$Q$11", Relation:=1, FormulaText:="1"
SolverOk SetCell:="$R$11", MaxMinVal:=3, ValueOf:="0", ByChange:="$I$11:$Q$11"
' Solve the model but do not display the Solver Results dialog box.
SolverSolve Userfinish:=True
' Finish and keep the final results.
End Sub
Ce que me pose probleme, étant débutant en macro, c´est de créer une boucle et d´éxécuter le solveur à partir de la ligne 11, jusqu´à la fin du tableau dont la longueur varie (ligne vide).
Voilà, en remerciant par avance tous ceux qui me liront.
je travaille en ce moment sur un tableau de répartition de charges (Ordres de Fabrication) sur les différents jours de la semaine.
Dans le cadre de ce travail, je me suis essayé au solveur, lequel j´aimerais utilisé en boucle dans une macro, j´ai donc tenté la chose suivante:
Sub Makro3()
'
' Makro3 Makro
'
'
SolverOk SetCell:="$R$11", MaxMinVal:=3, ValueOf:="0", ByChange:="$I$11:$Q$11"
SolverAdd CellRef:="$I$11:$Q$11", Relation:=4, FormulaText:="Ganzzahlig"
SolverAdd CellRef:="$I$11:$Q$11", Relation:=1, FormulaText:="1"
SolverOk SetCell:="$R$11", MaxMinVal:=3, ValueOf:="0", ByChange:="$I$11:$Q$11"
' Solve the model but do not display the Solver Results dialog box.
SolverSolve Userfinish:=True
' Finish and keep the final results.
End Sub
Ce que me pose probleme, étant débutant en macro, c´est de créer une boucle et d´éxécuter le solveur à partir de la ligne 11, jusqu´à la fin du tableau dont la longueur varie (ligne vide).
Voilà, en remerciant par avance tous ceux qui me liront.