Equation imbriquées

job75

XLDnaute Barbatruc

• 25 Mai 2014

• #16

Re : Equation imbriquées

Re,

Dans le fichier (2) j'avais laissé l'option Optimalité des nombres entiers à 5%.

Fichier (3) avec 0%, le solveur donne une autre solution, optimale.

A+

 

Pièces jointes

• equation tableau(3).xlsx

  24.2 KB · Affichages: 39

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Mai 2014

• #17

Re : Equation imbriquées

Re,

Noter qu'en effaçant D19:Q19 et en mettant 1 en D18 le solveur donne une solution aussi satisfaisante.

Fichier (3 bis).

A+

 

Pièces jointes

• equation tableau(3 bis).xlsx

  24.3 KB · Affichages: 34

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Mai 2014

• #18

Re : Equation imbriquées

Bonjour auverland, le forum,

Comme il y a plusieurs solutions, la résolution du Solver dépend des conditions initiales de la plage D19:Q19.

Voici une méthode VBA créant des conditions initiales aléatoires :

Code:

Sub Tirage()
'la référence "Solver" doit être cochée
Dim a(1 To 14), i
Randomize
a(1) = Int(15 + 99 * Rnd) 'minimum 15
For i = 2 To 14
  a(i) = Int(1 + 9 * Rnd) 'maximum 9
Next
[D19:Q19] = a
SolverSolve
End Sub

La référence "Solver" doit être cochée dans VBA (menu Outils => Références).

Nota : j'ai mis en C24:C36 une MFC (mise en forme conditionnelle) plus logique.

Fichier joint.

A+

 

Pièces jointes

• equation tableau VBA(1).xlsm

  29.3 KB · Affichages: 28

Vote positif 0 Vote négatif

A

auverland

XLDnaute Occasionnel

• 27 Mai 2014

• #19

Re : Equation imbriquées

Bonjour a tous

Wahou !!!

C'est génial, juste comme j'avais besoin.
Merci beaucoup job75, je connaissais pas du tout le "solver" avant que vous en parliez.. Même pas idée de son existance...
Maintennat grace a vous je vais pouvoir jouer comme un enfant avec mes équations....Youpi

Merci encore
Auverland

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Mai 2014

• #20

Re : Equation imbriquées

Bonjour auverland,

Heureux que vous le soyez 🙂

auverland à dit:

je connaissais pas du tout le "solver" avant que vous en parliez.. Même pas idée de son existance...

Cliquez pour agrandir...

Par défaut le Solver n'est pas installé sur Excel 2010, quand donc l'avez-vous installé ?

A+

 

Vote positif 0 Vote négatif