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å