Petit problème entre solveur excel et le visual basic

[Résolu/Fermé]
Signaler
-
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
-
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.

3 réponses

Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
620
Bonjour,

A tout hasard, tester en faisant un reset du solveur entre les deux utilisations
avec l'instruction :

SolverReset

A tester
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 42674 internautes nous ont dit merci ce mois-ci

ç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)
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
620
Voici le lien avec la doc de Microsoft :

Doc SolverReset

Elle permet de réinitialiser le solveur.
Merci beaucoup pour votre réponse !
Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
620
Bonne continuation,
Je passe en résolu.