vba solveur excel

Version imprimable

vba solveur excel

Bonjour,

Je souahite utiliser le solveur d'exel à partir DU VBA pour résoudre une équation du second degré .
Cependant, le solveur ne trouve qu'une seule solution , comment obtenir la deuxieme?
Puis, je souhaiterai enregistrer la solution trouvée: le solveur me demande si je veux garder la solution trouvee et replacer lancienne avec mais je veux selectionner cette solution trouvée par le solveur en la mettant dans une cellule tout en gardant lancienne solution, comment je pourrai faire?

Comment faire afficher la boite de solution du solveur dans une autre feuille d'excel?
j'écris :
Code:

1 2 3 4 5 6 7 8 Sheets("azert" ).Select ( azert est ma deuxieme feuille d'excel) SolverOK SetCell:=Cells(1, 6), MaxMinVal:=0, ByChange:=Cells(3, 2) SolverSolve UserFinish:=True SolverFinish KeepFinal:=1
mais rien ne ce passe par contre si j'écris , tout en se placant sur la premiere feuille d'excel
Code:

1 2 3 4 5 6 SolverOK SetCell:=Cells(1, 6), MaxMinVal:=0, ByChange:=Cells(3, 2) SolverSolve UserFinish:=True SolverFinish KeepFinal:=1
la le solveur me trouve des solutions.

savez - vous pourquoi le solveur ne peut pas travailler sur la feuille nommé 'azert'?

Merci de m'aider.

27/10/2006, 10h03
SilkyRoad

bonjour

les cellules spécifiées

Code:

Cells(1, 6), MaxMinVal:=0, ByChange:=Cells(3, 2)

sont dans quelle feuille ?

as tu essayer en precisant le nom, par exemple

Code:

Sheets("Feuil1").Cells(1, 6), MaxMinVal:=0, ByChange:=Sheets("Feuil1").Cells(3, 2)

michel
27/10/2006, 11h02
AlainTech

Ou mettre le code dans un module et pas dans une feuille...
27/10/2006, 14h54
moimemessssssssss

merci de m'avoir répondu.

Les cellules spécifiées dans dans la feuille "azert" .

Par contren j'ai essaye lautre méthode mais je sais pas trop comment m'y prendre, j'ai écrit
SolverOK SetCell:=Sheets("Feuil1").Cells(1, 6), MaxMinVal:=0, ByChange:=Sheets("Feuil1").Cells(3, 2)

mais y a une erreur ' indice n'appartient pas à la sélection'

Savez vous d'ou vient cette erreur?

ET aussi comment met-on les valeurs dans un module??

merci beaucoup.
27/10/2006, 16h06
AlainTech

Citation:

Envoyé par moimemessssssssss

Les cellules spécifiées dans dans la feuille "azert" .

Par contren j'ai essaye lautre méthode mais je sais pas trop comment m'y prendre, j'ai écrit

Code:

SolverOK SetCell:=Sheets("Feuil1").Cells(1, 6), MaxMinVal:=0, ByChange:=Sheets("Feuil1").Cells(3, 2)

Normal que si ta feuille s'appelle azert et que tu mets feuil1 dans la fonction, ça ne marche pas très bien.

Citation:

Envoyé par moimemessssssssss

ET aussi comment met-on les valeurs dans un module??

On ne met pas de valeurs dans un module, on y met du code.
Le code que tu as écrit dans une feuille, il faut le déplacer dans un (nouveau) module.
27/10/2006, 16h39
moimemessssssssss
merci.
voila j'ai rechange en
Code:

1 2 3 4 5 6 SolverOK SetCell:=Sheets("Sheet2").Cells(1, 6), MaxMinVal:=0, _ ByChange:=Sheets("Sheet2").Cells(3, 2) SolverSolve UserFinish:=False SolverFinish KeepFinal:=1
le programme se lance mais rien ne se passe : pas de message d'erreur, pas de boite de resultat.

Comment avoir la boite de resultat ?

mais comment ouvrir un module ?
en fait, je ne sais pas c'est quoi un module.

merci de m'aider.
27/10/2006, 16h41
moimemessssssssss

J'ai oublie de preciser que j'ai changé le nom des feuilles en sheet1 sheet2 sheet3
la feuille 2 s'apelle maintenant sheet2
voila
27/10/2006, 16h59
SilkyRoad

Citation:

mais comment ouvrir un module ?
en fait, je ne sais pas c'est quoi un module.

Quand tu es dans l'éditeur de macros (Alt+F11)
Menu Insertion
Module

ps
merci d'utiliser les balises codes lorsque tu places un extrait de macro dans tes messages

bon week end
michel
27/10/2006, 17h56
moimemessssssssss

merci de m'aider

j'ai mis le code dans un module mais ca donne le meme resultat : rien ne ce passe.

comment faire?
merci
28/10/2006, 11h02
conconbrr

Ca fait longtemps que je n'ai plus utilisé le solveur excel mais je suppose que ton résultat doit se trouver dans la cellule que tu as apppelé dans bychange...

En revanche a ta place et si ton équation n'est pas trop compliqué j'utiliserais plutôt un algo fait main pour la résoudre. J'utilisais en effet le solveur mais je me suis aperçu que selon la valeur initiale que tu rentrais, il ne te renvoyait pas exactement le même résultat!!!! (à moins d'avoir une solution exacte)
30/10/2006, 09h01
random

Citation:

Envoyé par conconbrr

En revanche a ta place et si ton équation n'est pas trop compliqué j'utiliserais plutôt un algo fait main pour la résoudre. J'utilisais en effet le solveur mais je me suis aperçu que selon la valeur initiale que tu rentrais, il ne te renvoyait pas exactement le même résultat!!!! (à moins d'avoir une solution exacte)

le solveur s'arrête quand il approche la solution.
en fait il compare le résultat du calcul à une valeur très faible 10^-6 ou -7
par exemple.
si le calcul est très sensible les racines peuvent présenter un écart un peu plus important mais minime.
en fonction de la valeur de départ, il peut s'arrêter effectivement sur des valeurs différentes mais très voisines, quand il retrouve la même racine, il est évident que s'il trouve une autre racine il va la donner.
Si le solveur est utilisé normalement (optimisation économique de type programmation linéaire) il renvoie la réponse correcte.
Pour les racines de fonction la fonction valeur cible (goalseek) donne de meilleurs résultats, elle dispose d'une valeur de départ optionnelle.
Si on tient à utiliser le solveur quand on a trouvé une racine, on peut ajouter aux contraintes différentes de cette valeur.
Par contre on n'est plus en programmation linéaire, puisque la fonction sous jacente est exponentielle.
30/10/2006, 14h27
conconbrr

Ouep suis bien d'accord. Mais comme tu l'as dit, même si la différence est minime elle existe. Et puis tout dépend de la précision cherchée sur le résultat, en particulier quand tu te sers de la valeur trouvée comme point de départ d'une nouvelle itération!!

je t'assure qu'à la 2000ème itération le résultat n'a plus rien à voir avec ce que tu cherches...