Petit problème entre solveur excel et le visual basic
Résolu
Bonjour,
Actuellement en dut, j'ai appris un petit peu a programmer avec le visual basic d'excel. Cepandant je suis fasse à un petit problème. Voici mon code vba :
Sheets("feuillecalcul").Range("B16").Value = 0.000000001
SolverOk SetCell:="$C$16", MaxMinVal:=3, ValueOf:="0", ByChange:="$B$16"
SolverSolve True
Sheets("feuillecalcul").Range("B20").Value = 0.000000001
SolverOk SetCell:=Range("$C$20"), MaxMinVal:=3, ValueOf:="0", ByChange:=Range("$B$20")
SolverSolve True
dans le même code je voudrais utiliser deux fois le solveur. Il faut que j'initialise le solveur à 0.0000000000001 pour pas qu'il y ai d'erreur et de ne pas vérifier a chaque fois.
Le code fonctionne, le premier solveur aussi seulement impossible de faire fonctionner le deuxième ! le solveur résout deux fois le premier cas. Que puis je faire ?
Merci d'avance pour toute les reponse que vous pourrez m'apporter.
Actuellement en dut, j'ai appris un petit peu a programmer avec le visual basic d'excel. Cepandant je suis fasse à un petit problème. Voici mon code vba :
Sheets("feuillecalcul").Range("B16").Value = 0.000000001
SolverOk SetCell:="$C$16", MaxMinVal:=3, ValueOf:="0", ByChange:="$B$16"
SolverSolve True
Sheets("feuillecalcul").Range("B20").Value = 0.000000001
SolverOk SetCell:=Range("$C$20"), MaxMinVal:=3, ValueOf:="0", ByChange:=Range("$B$20")
SolverSolve True
dans le même code je voudrais utiliser deux fois le solveur. Il faut que j'initialise le solveur à 0.0000000000001 pour pas qu'il y ai d'erreur et de ne pas vérifier a chaque fois.
Le code fonctionne, le premier solveur aussi seulement impossible de faire fonctionner le deuxième ! le solveur résout deux fois le premier cas. Que puis je faire ?
Merci d'avance pour toute les reponse que vous pourrez m'apporter.
3 réponses
-
Merci beaucoup pour votre réponse !
-
ça marche !
Je ne sais pas pourquoi mais avec l'ajout de cette commande cela fonctionne. A quoi sert elle ? (Comme ça je ne referai pas la même erreur) -
ContributeurBonjour,
A tout hasard, tester en faisant un reset du solveur entre les deux utilisations
avec l'instruction :
SolverReset
A tester
