[XL-2016] Boucle pour solver

Boucle pour solver

Bonjour
j’utilise Solver pour un calcule les valeurs d'une colonne comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    SolverOk SetCell:="$C$7", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$7"
    SolverSolve UserFinish:=True
    SolverOk SetCell:="$C$8", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$8"
    SolverSolve UserFinish:=True
    SolverOk SetCell:="$C$9", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$9"
    SolverSolve UserFinish:=True
    SolverOk SetCell:="$C$10", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$10"
    SolverSolve UserFinish:=True
    SolverOk SetCell:="$C$11", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$11"
    SolverSolve UserFinish:=True
    SolverOk SetCell:="$C$12", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$12"
    SolverSolve UserFinish:=True
    SolverOk SetCell:="$C$13", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$13"
    SolverSolve UserFinish:=True
    SolverOk SetCell:="$C$14", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$14"
    SolverSolve UserFinish:=True
    SolverOk SetCell:="$C$15", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$15"
    SolverSolve UserFinish:=True
    SolverOk SetCell:="$C$16", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$16"
    SolverSolve UserFinish:=True
    SolverOk SetCell:="$C$17", MaxMinVal:=3, ValueOf:=0, ByChange:="$D$17"
    SolverSolve UserFinish:=True

comment créer une boucle qui fait le même travail son écrire tous ces lignes sachant que j'ai d'autre colonnes qui sont long

Merci

Hello

Peut-être qq chose du genre
Non testé

Code:

1
2
3
4
5
 
For i = 7 to 16
  SolverOk SetCell:="$C$"&i, MaxMinVal:=3, ValueOf:=0, ByChange:="$D$"&i
  SolverSolve UserFinish:=True
Next i

MERCI, ça a marché