Discussion :

[deubelte]

Bonjour

J'ai fais la macro suivante (cf en bas).
Quand je la lance j'ai un message qui me demande si je veux conserver les valeurs trouvées,

"Le solveur a trouvé une solution satisfaisant toutes
les contraintes et les conditions d'optimisation.

....

Je voudrais desactiver ce message parce qu'a cause de la boucle,
il me l'affiche à chaque itération.

Quelle option faut il mettre dans le code?

Merci
Pierre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub FF()
 
 
For i = 1 To 3
 
 
SolverOk SetCell:="$H$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$B$" & i & ":$C$" & i
 
         SolverSolve userFinish:=False
         SolverSolve
 
 
Next i
End Sub

[laetitia]

bonjour deubelte le forum as tu essaye en debut de code de mettre cette ligne!!

Code :

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

Application.DisplayAlerts = False

'ton code...

Code :

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

Application.DisplayAlerts = true

[david_atx]

je te proposerais bien d'enlever le deuxième solversolve tout simplement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub FF()
 
 
For i = 1 To 3
 
 
SolverOk SetCell:="$H$" & i, MaxMinVal:=3, ValueOf:="0", ByChange:="$B$" & i & ":$C$" & i
 
         SolverSolve userFinish:=False 
 
Next i
End Sub

sinon la solution précédente devrait marcher mais elle n'est pas nécessaire en théorie