Macro et solver
artlm
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
artlm Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
artlm Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
Bonjour à tous,
J'ai une question à vous poser, je cherche à faire une macro basique qui fasse une boucle sur le solveur (pour apprendre à m'en servir)
j'ai tenté ça :
Sub solveur()
Dim K As Integer
For K = 1 To 5
SolverReset
SolverOk SetCell:="D" & K, MaxMinVal:=3, ValueOf:="0", ByChange:="E" & K
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
Next
End Sub
Mais pour une raison qui m'échappe le solveur seule la dernière valeur est changé (ici D5 et D1...D4 restent inchangée)
Que dois je modifier?
J'ai une question à vous poser, je cherche à faire une macro basique qui fasse une boucle sur le solveur (pour apprendre à m'en servir)
j'ai tenté ça :
Sub solveur()
Dim K As Integer
For K = 1 To 5
SolverReset
SolverOk SetCell:="D" & K, MaxMinVal:=3, ValueOf:="0", ByChange:="E" & K
SolverSolve UserFinish:=True
SolverFinish KeepFinal:=1
Next
End Sub
Mais pour une raison qui m'échappe le solveur seule la dernière valeur est changé (ici D5 et D1...D4 restent inchangée)
Que dois je modifier?
A voir également:
- Macro et solver
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Jitbit macro recorder - Télécharger - Confidentialité
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro maker - Télécharger - Divers Utilitaires
- Macro word - Guide
2 réponses
Bonjour
N'ayant pas le fichier pour tester
A tout hasard, remplacez la ligne SolverOK par
SolverOk SetCell:=Range("D" & K), MaxMinVal:=3, ValueOf:="0", ByChange:=Range("E" & K)
cdlt
N'ayant pas le fichier pour tester
A tout hasard, remplacez la ligne SolverOK par
SolverOk SetCell:=Range("D" & K), MaxMinVal:=3, ValueOf:="0", ByChange:=Range("E" & K)
cdlt
re,
Je ne vois pas la différence entre les deux j'ai donc tenté un copié collé mais ça n'a malheureusement pas résolu le problème.
Le pire étant que si j'exécute la macro pas à pas alors tout marche, on dirai que le solveur n'a pas le temps de résoudre que la boucle est déjà passée à la valeur suivante.
Qu'en pensez vous?
Je ne vois pas la différence entre les deux j'ai donc tenté un copié collé mais ça n'a malheureusement pas résolu le problème.
Le pire étant que si j'exécute la macro pas à pas alors tout marche, on dirai que le solveur n'a pas le temps de résoudre que la boucle est déjà passée à la valeur suivante.
Qu'en pensez vous?
si j'exécute la macro pas à pas alors tout marche, en faisant du pas à pas avec F8, à un moment donné, le résultat change, c'est à partir de ce moment là qu'il faut récupérer l'information et la recopier dans un tableau.
Après, je ne peux pas vous en dire davantage sans voir le fichier. Si vous voulez le coller ici sans données personnelles, je pourrai y regarder de plus près.
Après, je ne peux pas vous en dire davantage sans voir le fichier. Si vous voulez le coller ici sans données personnelles, je pourrai y regarder de plus près.