Discussion :

[cott333]

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 :

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
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!

[Didier Gonard]

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

[Michel_M]

Bonjour,

rssaies

Code :

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

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

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

[cott333]

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 :

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

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

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

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
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

[Michel_M]

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

[debutVBA]

Voici ton code encore un peu factorisé

Code :

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

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

[el_slapper]

Sinon, j'utilise des trucs du genre :

Code :

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

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.