Automatisation du Solver

Asclepios -  
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   -
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

2 réponses

eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Bonjour,

Sans fichier...
Sans doute qu'il fonctionne pour toutes les lignes, mais tu ne vois que le dernier résultat.
Il faudrait sauvegarder le résultat ailleurs entre chaque boucle.

eric
0
asclepios32 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention  
 
Au temps pour moi, voici le fichier :

https://www.cjoint.com/c/CCEgG4IUdny

Comment faire pour sauvegarder le résultat ailleurs?

Merci d'avance,

Romain
0
eriiic Messages postés 24603 Date d'inscription   Statut Contributeur Dernière intervention   7 275
 
Le résultat s'inscrit bien par ligne.
Seulement si tu initialises avec des 0 pour une somme = 0 il n'a plus grand chose à chercher ni à modifier pour obtenir le résultat...
eric
0