Bonjour,
Je souhaiterais ici créer un code qui permettrait d'adapter les plages de saisie en fonction du nombre d'arguments présents en colonne A. Ici, le solveur prends en compte la range A23:A32 alors que ça fausse le calcul.
Mes démarches :
Dim lr As Long
lr = Range("$B$18").End(xlDown).Row
SolverReset
SolverOk SetCell:="$C$34", MaxMinVal:=2, ValueOf:=0, ByChange:="$B$18:$B$" & lr, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverAdd CellRef:="$B$18:$B$" & lr, Relation:=6, FormulaText:="TousDifférents"
SolverAdd CellRef:="$B$18:$B$" & lr, Relation:=4, FormulaText:="entier"
SolverOk SetCell:="$C$34", MaxMinVal:=2, ValueOf:=0, ByChange:="$B$18:$B$" & lr, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverOk SetCell:="$C$34", MaxMinVal:=2, ValueOf:=0, ByChange:="$B$18:$B$" & lr, _
Engine:=1, EngineDesc:="GRG Nonlinear"
SolverSolve