Discussion :

[Ellimac95]

Bonjour !

J'ai realisé le programme VBA suivant qui fait des calculs de solveur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub solv()
SolverOk SetCell:= "$C$8″, MaxMinVal:=1, ValueOf:=0, ByChange:= "$C$14:$C$15,$C$17:$C$18", Engine:=1, EngineDesc:= "GRG Nonlinear"
Solveursolve
End sub

Je voudrais maintenant creer un boucle pour changer C en D puis E....je ne sais pas comment changer la ligne solver ok pour la boucle.

J'espere que vous pourrez m'aider !

Merci

[eriiic]

Bonjour,

une possibilité :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
    Dim i As Long
    i = Application.InputBox("offset colonne C", , 0, , , , , 1)
    solv i    ' i : offset colonne, i=0-> C
End Sub
 
Sub solv(i As Long)
    Dim pl As Range
    Set pl = Range("$C$14:$C$15,$C$17:$C$18")
    SolverOk SetCell:=Range("$C$8").Offset(i), MaxMinVal:=1, ValueOf:=0, ByChange:=pl.Offset(, i).Address, Engine:=1, EngineDesc:="GRG Nonlinear"
    Solveursolve
End Sub

eric

PS : Solveursolve ?? ou SolverSolve...

[Ellimac95]

Ca fonctionne à la perfection !

Merci pour votre aide !