Discussion :

[voskitos]

bonjour a tous, je suis débutant avec visual basic. Je travaille sur excell avec un solveur. Pour chaque ligne, je dois effectuer la fonction solveur afin de minimiser des variables. Le problème est que mon fichier fait 2500 lignes. Pour etendre mon solveur sur l ensemble des lignes, j ai trouvé un code sur internet:

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
16
17
Sub test()
 
Dim i As Integer
 
 SolverReset
 
For i = 20 To 22
 
 SolverOk SetCell:="$I$" & i, MaxMinVal:=2, ValueOf:="0", ByChange:="$A$" & i & ":$C$ & i"
 
 SolverSolve Userfinish:=True
 
 SolverFinish KeepFinal:=1
 
 Next i
 
End Sub

Cependant, il ne fonctionne pas. Quelqu'un pourrait il m'expliquer ce code en français ?

Si nécessaire, j'enverrai le fichier excel.

Merci d'avance.

[Phileo]

Bonjour,

J'ai éxecuté ton code


Problème 1 :
Il plante à l'instruction "SolverReset"

Si c'est ton cas il faut référencer le complément Solveur
Si tu ne le trouve pas il faut l'installer dans les options d'Excel, gérer les compléments.
voir l'aide VBA et l'aide Excel pour ces deux choses

Problème 2:
sur le fond on ne sait pas trop ce que tu veux faire
je te conseille de tester l'usage de différents scenarios manuellement avec l'enregistreur de macro pour maitriser les hypothèses

[Jean-Philippe André]

Bonjour,

autre point qui peut expliquer le bug :

Code :

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

ByChange:="$A$" & i & ":$C$ & i"

qui doit etre remplace par

Code :

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

ByChange:="$A$" & i & ":$C$" & i