Automatisation Solver

Bonjour à tous,

Je dois traiter pour un travail plusieurs milliers de données avec le Solver et je souhaiterais donc automatiser le processus avec une macro.

Après avoir parcouru plusieurs post traitant du sujet, je suis arriver à un code. Hors, il s'avère que ce code ne fonctionne que pour la dernière cellule de mon tableau, laissant les autres inchangées. N'ayant jamais utilisé VBA avant, je ne parviens pas à trouver l'erreur dans ma boucle.

Quelqu'un pourrait-il m'aider?

Merci d'avance,

Voici le code :

Sub solver_automatique()

Sheets("Feuil2").Select

SolverReset

For rwIndex = 1 To 10

SolverOk SetCell:=Cells(rwIndex, 4), MaxMinVal:=2, ValueOf:="0", ByChange:=Cells(rwIndex, 2)

SolverSolve =True

Next rwIndex

End Sub

Salut le Forum

Un bout de code c'est bien, mais un fichier c'est mieux.

Mytå

Au temps pour moi,

Voici le fichier utilisé.

Le but étant de trouver les poids de deux actifs financiers (colonnes B et C) afin de minimiser la colonne D.

La feuille à regarder est "Feuil2"

Merci d'avance pour votre aide.

Re le Forum

Je ne rencontre aucun problème de calcul avec ta macro, la plage "B2:E10" est calculée.

Mytå