Discussion :

[delkoo]

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

[zenpbb]

Bonjour,

Avant de sélectionner une plage, il faut que la feuille qui la contient le soit aussi.
Il faut donc rajouter

Code :

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

feuille.Select

avant de sélectionner la plage

Code :

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

1
2
feuille.Select
feuille.Range(feuille.Cells(1, k), feuille.Cells(1, k).End(xlDown)).Select

[delkoo]

bon sang mais bien sur!
ça crevait les yeux pourtant

merci

Néanmoins c'est bizarre que le pas à pas ne l'ait pas détecté...