Discussion :

[moimemessssssssss]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SilkyRoad]

bonjour

les cellules spécifiées

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

sont dans quelle feuille ?



as tu essayer en precisant le nom, par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

michel

[AlainTech]

Ou mettre le code dans un module et pas dans une feuille...

[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.

[AlainTech]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

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.

[moimemessssssssss]

merci.
voila j'ai rechange en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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

[SilkyRoad]

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

[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

[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)

[random]

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.

[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...