Solveur VBA changement colonne

Bonjour !

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

Code:

---

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

Bonjour,

une possibilité :

Code:

---

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...

Ca fonctionne à la perfection !

Merci pour votre aide !