Bonjour,

J'ai écrit une marco pour calculer la volatilité d'une série de données dans une colonne "daily return" et ce sur plusieurs pages. Le but est d'écrire une macro qui identifie la colonne ou qu'elle se situe dans le tableau, et indépendante du nombre de lignes.

Cette macro tourne très bien en mode pas à pas, mais me renvoi une erreur 1004 en mode exécution et s'arrête à la 2nde page du classeur. Si quelqu'un a déjà eu ce problème et qu'il il dispose d'éléments de correction merci d'avance.

La macro :
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
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