Solver_Comment résoudre plus de 2000 équation en MEME temps????

Bonjour tout le monde;
J'aimerai résoudre 2497 equations avec solver, pour cela j'ai la macro suivante:

SolverOk SetCell:=Range("t3"), MaxMinVal:=1, ByChange:=Range("s3:s2497")
SolverAdd CellRef:=Range("p3:p2497"), Relation:=2, FormulaText:=Range("t3:t2497")
SolverSolve userfinish:=True
solverfinish keepfinal:=1
SolverReset


Le problème c'est que solver raaaaaale en affichant un message d'erreur disant qu'il y a trooop d'equations.
Par contre ca marche bien si je resoud un maximum de 90 equations à chaques fois, mais j'ai vraiment pas envie de lancer la macro plus que 28 fois pour arriver à bout de ma tache, c'est comme meme l'un des buts principaux de VBA que d'automatiser ce genre de 'stuff ' ?
Une idée pour résoudre ce tit problème?

Merci  d'avance :)

Et si tu fais une boucle ?  Du genre un FOR ..NEXT de 1 à 28...

en fait, j'ai essayé de faire une boucle for... mais j'arrive pas à faire varier la borne sup et la borne inf à l'interieure du range:
SolverOk SetCell:=Range("t3"), MaxMinVal:=1, ByChange:=Range("s3:s2497")
SolverAdd CellRef:=Range("p3:p2497"), Relation:=2, FormulaText:=Range("t3:t2497")


Une propostion? Ca me serait vraiment utile, ca fait longtemps que je bloque la dessus :(

MERCI D'AVANCE.

utilise l'iobjet Cells(i, j) plutot que Range, tu pourras y mettre des variables (dont la valeur s'incrémente grâce à la boucle)

@++

le mystérieux chevalier,"Provençal, le gaulois"
Forum Office & VBA