Calcul var parametrique

**congolisation** · 30/01/2017, 09h44

bonjour à tous , moi je prépare un mini memoire sur les limites du calcul de la var par la méthode paramétrique mais je suis nul en vba car je souhaite faire une patrie en vba ( creer un programme et un bouton pour faire apparaître le résultat dans une fenêtre).
j'ai fais un travail sur excel dont voici ( excel et un code qui m'a été proposé de modifier)

merci pour votre contribution

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
Option Explicit
 
Public strbt_vartitre As String
Public strfetitre As String
Public stral As String
Public strvaleurtitre As String
Public strseuiltitre As String
Public strjournalièretitre As String
Public strjourtitre As String
Public strmoistitre As String
Public strannéetitre As String
Public straction1titre As String
Public straction2titre As String
Function Var(I, LNI, c, Rmm, E As Double) As Double
    Dim valeur_ab As Double
    valeur_ab = Application.WorksheetFunction.Norm_Inv(1 - c)
    Var = I - valeur_ab
End Function
 
Sub SearchAll()
    Searchvar
    Searchtotal
End Sub
 
Sub SearchAllTextBox()
    SearchTbAction1
End Sub
 
Sub SearchAllTextBox2()
    SearchTbAction2
End Sub
 
Sub SearchAllTextBox3()
    SearchTbValeur
End Sub
 
Sub SearchAllTextBox4()
    SearchTbSeuil
End Sub
 
Sub SearchAllTextBox5()
    SearchTbJours
End Sub
 
Sub SearchAllTextBox6()
    SearchTbMois
End Sub
 
Sub SearchAllTextBox7()
    SearchTbAnnees
End Sub
 
Sub SearchAllTextBox8()
    SearchTbTotal
End Sub
 
Sub InitcbLang()
    ThisWorkbook.Sheets(1).cb_Lang.Clear
    ThisWorkbook.Sheets(1).cb_Lang.AddItem "Français"
    ThisWorkbook.Sheets(1).cb_Lang.AddItem "English"
    ThisWorkbook.Sheets(1).cb_Lang.Text = "Français"
    InitAllStr
End Sub
 
Sub b1()
 
    TextBox
    SearchAllTextBox2
    SearchAllTextBox3
    SearchAllTextBox4
    SearchAllTextBox5
    SearchAllTextBox6
    SearchAllTextBox7
    SearchAllTextBox8
    Tb.Show vbModeless
End Sub
 
Sub InitAllStr()
    If (ThisWorkbook.Sheets(1).cb_Lang.Text = "Français") Then
        strCelTitre = "Modèle de Value at Risk automatisé"
        strbt_vartitre = "Value at Risk Paramétrique"
        strfetitre = "VaR (FR)"
        stralocTitre = "Allocation des titres"
        strtotaltitre = "Total"
        strvaleurtitre = "Valeur du portefeuille"
        strseuiltitre = "Seuil de confiance"
        strvar = "value at risk "
        strJournaliereTitre = "Journalière"
        strMensuelleTitre = "Mensuelle"
        strAnnuelleTitre = "Annuelle"
        strjourtitre = "Jour (s)"
        strmoistitre = "Mois"
        strAnneeTitre = "Année (s)"
        straction1titre = "Action 1"
        straction2titre = "Action 2"
 
 
    End If
    RefreshLang
End Sub
 
Sub RefreshLang()
    ThisWorkbook.Sheets(1).Range("cel_Titre").Value = strCelTitre
    Tb.Caption = strfetitre
    ThisWorkbook.Sheets(1).Bt_VaR.Caption = strbt_vartitre
    Tb.alloc.Caption = stralocTitre
    Tb.Total.Caption = strtotaltitre
    Tb.Valeur.Caption = strvaleurtitre
    Tb.Seuil.Caption = strseuiltitre
    Tb.Journaliere.Caption = strJournaliereTitre
    Tb.Mensuelle.Caption = strMensuelleTitre
    Tb.Annuelle.Caption = strAnnuelleTitre
    Tb.Jour.Caption = strjourtitre
    Tb.Mois.Caption = strmoistitre
    Tb.Annee.Caption = strAnneeTitre
    Tb.Action1.Caption = straction1titre
    Tb.Action2.Caption = straction2titre
 
End Sub
 
Sub UpdateCellSample()
    Dim dPerc As Double
    dPerc = 0
 
    If IsNumeric(Tb.tb_action1.Text) Then
        If (Tb.tb_action1.Text >= 0) Then
            dPerc = Tb.tb_action1.Text / 100
            ThisWorkbook.Sheets(2).Range("cel_Action1").Value = dPerc
            SearchAll
        Else
            MsgBox "not negative value !", vbCritical, "not negative value !"
        End If
    End If
End Sub
 
Sub UpdateCellSample2()
    Dim dPerc As Double
    dPerc = 0
 
    If IsNumeric(Tb.tb_action2.Text) Then
        If (Tb.tb_action2.Text >= 0) Then
            dPerc = Tb.tb_action2.Text / 100
            ThisWorkbook.Sheets(2).Range("cel_Action2").Value = dPerc
            SearchAll
        Else
            MsgBox "not negative value !", vbCritical, "not negative value !"
        End If
    End If
End Sub
 
 
Sub UpdateCellSample3()
    If IsNumeric(Tb.tb_Jours.Text) Then
        ThisWorkbook.Sheets(2).Range("cel_jours").Value = Tb.tb_Jours.Text
        SearchAll
    End If
End Sub
 
Sub UpdateCellSample4()
    If IsNumeric(Tb.tb_Mois.Text) Then
        ThisWorkbook.Sheets(2).Range("cel_mois").Value = Tb.tb_Mois.Text
        SearchAll
    End If
End Sub
 
Sub UpdateCellSample5()
    If IsNumeric(Tb.tb_Annees.Text) Then
        ThisWorkbook.Sheets(2).Range("cel_annees").Value = Tb.tb_Annees.Text
        SearchAll
    End If
End Sub
 
Sub UpdateCellSample6()
    If IsNumeric(Tb.tb_Valeur.Text) Then
        ThisWorkbook.Sheets(2).Range("cel_valeur").Value = Tb.tb_Valeur.Text
        SearchAll
    End If
End Sub
 
Sub UpdateCellSample7()
    Dim dPerc As Double
    dPerc = 0
 
    If IsNumeric(Tb.tb_Seuil.Text) Then
        dPerc = Tb.tb_Seuil.Text / 100
        ThisWorkbook.Sheets(2).Range("cel_seuil").Value = dPerc
        SearchAll
    End If
End Sub
 
Sub Searchvar()
    Tb.tb_VaR.Text = ThisWorkbook.Sheets(2).Range("cel_VaR").Text
End Sub
 
Sub Searchtotal()
    If (ThisWorkbook.Sheets(2).Range("cel_Total").Value * 100 > 100) Then
        MsgBox "percents > 100 !", vbCritical, "percents > 100 !"
    End If
    Tb.tb_Total.Text = ThisWorkbook.Sheets(2).Range("cel_Total").Value * 100
End Sub
 
Sub SearchTbAction1()
    Tb.tb_action1.Text = (ThisWorkbook.Sheets(2).Range("Cel_Action1").Value) * 100
End Sub
 
Sub SearchTbAction2()
    Tb.tb_action2.Text = (ThisWorkbook.Sheets(2).Range("Cel_Action2").Value) * 100
End Sub
 
Sub SearchTbValeur()
    Tb.tb_Valeur.Text = (ThisWorkbook.Sheets(2).Range("Cel_valeur").Value)
End Sub
 
Sub SearchTbSeuil()
    Tb.tb_Seuil.Text = (ThisWorkbook.Sheets(2).Range("Cel_seuil").Value) * 100
End Sub
 
Sub SearchTbJours()
    Tb.tb_Jours.Text = (ThisWorkbook.Sheets(2).Range("Cel_jours").Value)
End Sub
 
Sub SearchTbMois()
    Tb.tb_Mois.Text = (ThisWorkbook.Sheets(2).Range("Cel_mois").Value)
End Sub
 
Sub SearchTbAnnees()
    Tb.tb_Annees.Text = (ThisWorkbook.Sheets(2).Range("Cel_annees").Value)
End Sub
 
Sub SearchTbTotal()
    Tb.tb_Total.Text = (ThisWorkbook.Sheets(2).Range("Cel_Total").Value) * 100
End Sub

Calcul var parametrique

Macros et VBA Excel

Discussions similaires

Partager

Partager