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.