SImplification de IF

Bonjour à tous!

J'ai un petit problème tout simple mais dont je en me rappelle plus comment on fait...

J'aimerai simplifier mon code pour qu'il y ait moins de IF.
Mon code ici marche très bien, mais je le trouve long.
(j'ai bien essayé avec select case, mais j'arrive pas à le faire tourner)

En gros j'ai des lignes de conditions:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

If typeachat.Value = True And devise1.Value = True Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End If   If typeachat.Value = True And devise2.Value = True Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End If     If typevente.Value = True And devise1.Value = True Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End If   If typevente.Value = True And devise2.Value = True Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End If

---

Merci!

Bonjour,

ce n'est pas tant le nombre de if qu'il faut voir, mais la logique, ici tu testes 2 fois tes Value de Typeachat et vente, il faut tester une fois et imbriquer un deuxième if pour tester la devise, tu élimines 2 tests répétitifs inutiles.
Ensuite voir ton contexte, si tu as 2 devises et qu'elles ne peuvent être toutes les 2 à True (ce qui semblerait logique), nul besoin de tester les deux, si la 1ère est true, l'autre est False et inversement donc un If Then Else sur l'une des 2 suffirait...


Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier

Bonjour,

rssaies

Code:

---

=If (devise1+devise2)*(typeachat+typevente) then...

---

nota: tes variables étant des booléens, tu n'as pas besoin de mettre variable.value=true

Au temps pour moi!
J'ai voulu simplifier le code au maximum et donc du coup je n'ai pas trop fait attention.

En fait j'ai une troisième devise: Donc elle peuvent être TRUE ou FALSE.
Du coup je ne peux pas utilisé je pense...

Code:

---

=If (devise1+devise2)*(typeachat+typevente) then...

---

Je vais essayer le if imbriqué.
Mais si on peut encore réduire le code je suis preneur :mrgreen:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

If typeachat.Value = True And devise1.Value = True Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End If   If typeachat.Value = True And devise2.Value = True Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End If   If typeachat.Value = True And devise3.Value = True Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End If   If typevente.Value = True And devise1.Value = True Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End If   If typevente.Value = True And devise2.Value = True Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End If   If typevente.Value = True And devise3.Value = True Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End If

---

Ben si! le principe est le même :-(

Voici ton code encore un peu factorisé :mrgreen::mrgreen:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

If (typeachat.Value And devise1.Value) Then   prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité())   ElseIf (typeachat.Value And devise2.Value) Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité())   ElseIf (typevente.Value And devise1.Value) Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité())   ElseIf (typevente.Value And devise2.Value) Then prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité())   End If

---

Sinon, j'utilise des trucs du genre :

Code:

---

1 2 3 4 5 6 7 8 9 10

Select Case True Case (typeachat.Value And devise1.Value) prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) Case (typeachat.Value And devise2.Value) prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) Case (typevente.Value And devise1.Value) prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) Case (typevente.Value And devise2.Value) prix1.Value = pricers(typeoption, s, k, rf, rd, sigma, maturité()) End Select

---

je trouve ça plus lisible que les elseif - mais c'est sans doute mon coté vieux con. :aie: