Excel VBA et Solver

Bonjour à tous,

Un petit problème technique m'amène à découvrir ce forum. Voilà, j'aimerais utiliser une macro qui utilise le solver pour résoudre une équation et ce, en boucle. J'ai plus de 400 lignes à résoudre.

En gros, mon fichier ce présente tel que:

Colonne AN: cible l'équation que l'on veut minimum
Colonne de AA à AF: variable de l'équation à changer par le solver
Colonne de AH à AL: contraintes

Les données sont sur plusieurs lignes de 6 à 418 (appeler K ci dessous). Je découvre tout juste le VBA et les macros, alors soyez gentils :D Voilà mon travail à date:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub MassMass() Dim K As Integer For K = 226 To 229 SolverReset SolverOk SetCell:="AN" & K, MaxMinVal:=2, ByChange:="AA:AF" & K SolverAdd CellRef:="AH" & K, relation:=2, formulaText:="J" & K SolverAdd CellRef:="AJ" & K, relation:=2, formulaText:="J" & K SolverAdd CellRef:="AL" & K, relation:=2, formulaText:="J" & K SolverAdd CellRef:="AI" & K, relation:=2, formulaText:="I" & K SolverAdd CellRef:="AK" & K, relation:=2, formulaText:="I" & K SolverSolve Userfinish:=True Next SolverReset End Sub
J'espère de pas avoir été trop confus. Merci pour votre aide

Masch

Déjà

Code:

Bychange:="AA" & K & ":AF" & K

Merci Enguex2. Cela semble marcher maintenant.