Discussion :

[Monte_Carlo]

Bonjour,

J'ai un petit soucis avec cette ligne de code:

Code :

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

Feuil2.Range("R" & i).Formula = "=abs(" & Feuil2.Range("O" & i).Address & ")*" & fees & "*0.6 + 0.002 *abs(" & Feuil2.Range("O" & i).Address & ")"

Le proèbleme vient de la variable fees mais je ne trouve pas pourquoi.
Je l'ai définis comme un double.

Code :

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

1
2
3
4
5
6
7
Dim fees As Double
 
If Feuil3.Range("K2") = "Faux" Then
    fees = CDbl(Standard(UserForm1.ComboBox12))
Else
    fees = UserForm3.TextBox1
End If

La fonction Standard est la suivante:

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
Function Standard(Exchange As String)
 
If Exchange = "Eurex" Then
    Standard = 3
Else
    If Exchange = "Euronext Amsterdam" Then 'en pourcentage
        Standard = 3
    Else
        If Exchange = "Monep" Then 'en pourcentage
            Standard = 0.0018 * UserForm1.TextBox9
        Else
            If Exchange = "Idem" Then
                Standard = "3"
            Else
                If Exchange = "US" Then
                    Standard = "2"
                Else
                    If Exchange = "Liffe" Then
                        Standard = "3"
                    Else
                        If Exchange = "sx5e" Then
                            If Val(UserForm1.TextBox8) <= 30 Then
                                Standard = "1"
                            Else
                                Standard = "1.5"
                            End If
                        End If
                    End If
                End If
            End If
        End If
    End If
End If
 
End Function

Merci par avance de votre aide.

Cordialement.

[Daniel.C]

Bonjour,

Essaie en enlevant les guillemets sur les valeurs numériques de cette partie du 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
            If Exchange = "Idem" Then
                Standard = "3"
            Else
                If Exchange = "US" Then
                    Standard = "2"
                Else
                    If Exchange = "Liffe" Then
                        Standard = "3"
                    Else
                        If Exchange = "sx5e" Then
                            If Val(UserForm1.TextBox8) <= 30 Then
                                Standard = "1"
                            Else
                                Standard = "1.5"

[Monte_Carlo]

J'ai déjà essayé cette solution et en fait les guillemets ne devraient pas être là.
Dans mon exemple, ça bug avec Exchange = "Monep".

Merci pour la réponse.

[casefayere]

et si tu changes cette partie

Code :

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

1
2
If Exchange = "Monep" Then 'en pourcentage
            Standard = 0.0018 * UserForm1.TextBox9

en

Code :

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

1
2
If Exchange = "Monep" Then 'en pourcentage
            Standard = 0.0018 * Cdbl(UserForm1.TextBox9)

[Monte_Carlo]

Toujours la même erreur.

[illight]

Que vaut cette valeur :

Code :

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

UserForm1.TextBox9

?

[Monte_Carlo]

Cela ne fonctionne pas.

Bon je vais essayer de faire autrement et ne pas utiliser le .formula.

Merci en tout cas à tous pour votre aide.

Cordialement.