Discussion :

[Invité]

Bonjour,

J'ai créé un programme VBA qui utilise les fonctionnalités du Solveur.
Malheureusement, si j'envoi ma macro à un autre utilisateur et qu'il utilise une autre version d'Excel, la macro ne fonctionne pas.
Comment rendre portable cette macro ?

Vous en remerciant par avance.

Cordialement.

[basto]

Bonjour

Peux tu décrire ce qui ne va pas quand tu changes de version d'Excel? Message d'erreur, résultat erroné, ... ?

Sans précision il est difficile de t'aider.

A+

[Invité]

Cela indique dans les références "Manquant:Solveur".
La solution que j'ai trouvé est d''installer le complément Solveur sur chacun des postes qui utiliseront cette macro.
C'est contraignant car on doit faire cette manip pour chacun d'eux.


sinon, j'ai un autre soucis sur mon code, je souhaiterais renseigner manuellement une contrainte via un MsgBox, mais mes variables ainsi définies n'e sont pas prises en compte dans ma contrainte.
En effet je souhaiterais pouvoir modifier à ma guise les variables pourcentageMin et pourcetageMax.

Ci-dessous mon code :

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Sub lissagePourcentageDiametre()
' lissagePourcentage Macro
' Lisse les pourcentages du débit total par tronçons
 
Dim pourcentageMin As Double
Dim pourcentageMax As Double
 
'Réinitialisation du solveur
SolverReset
 
'Valeur par défaut du débit total
pourcentageMin = 0.19
pourcentageMax = 0.21
 
 
'Contrainte sur Cellule S15, toujours égale à 100%
'Définition des variables sur lesquelles les ajustement se feront
 
SolverOk SetCell:="$S$15", MaxMinVal:=3, ValueOf:=1, ByChange:="$E$15,$H$15,$K$15,$N$15,$Q$15,$E$19,$H$19,$K$19,$N$19,$Q$19", Engine:=1, EngineDesc:="GRG Nonlinear"
 
'Contraintes sur Tronçon 1
SolverAdd CellRef:="$E$15", Relation:=3, FormulaText:="pourcentageMin"
SolverAdd CellRef:="$E$15", Relation:=1, FormulaText:="pourcentageMax"
 
'Contraintes sur les " DP chemin " qui doivent être identiques
SolverAdd CellRef:="$Q$42", Relation:=2, FormulaText:="$C$46"
 
 
SolverOptions AssumeNonNeg:=True
 
SolverSolve UserFinish:=True
 
 
 
End Sub

[riaolle]

Bonjour,
Si tu veux renseigner quelque chose, ce n'est pas par MsgBox, mais par InputBox. Attention, l'InputBox renvoie une chaine de caractère. Il faut donc éventuellement faire des conversions.

Code :

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

1
2
Dim valMin As Long
valMin = CLng(InputBox("Quelle est la valeur minimale ?","Valeur minimale","0.19"))