Bonjour
j’utilise Solver pour un calcule les valeurs d'une colonne comme suit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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