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
| Sub Volatilité()
For Each Feuille In ActiveWorkbook.Worksheets
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim m As Integer
i = Feuille.UsedRange.Columns.Count
Feuille.Cells(1, i + 1) = "Volatility"
j = 1
Do
If Feuille.Cells(1, j).Value = "Daily Return" Then
k = Feuille.Cells(1, j).Column
End If
j = j + 1
Loop Until IsEmpty(Feuille.Cells(1, j).Value)
Feuille.Range(Feuille.Cells(1, k), Feuille.Cells(1, k).End(xlDown)).Select
m = Selection.Rows.Count
Feuille.Cells(2, i + 1).FormulaR1C1 = "=STDEV(R2C" & k & ":R" & m & "C" & k & ")"
Next
End Sub |
