Discussion :

[oliver75]

Bonjour,


J'ai besoin pour calculer des corrélations de stocker des cours sur 60 jours dans un tableau excel.

Je recupére ces cours dans une base spécifique. Je pensais recupérer ces cours en appelant la base jours par jours. Malheureusement le temps de traitement est trop long dès le stockage sur 4 jours .


Je pense que le mieux serait en fait de stocker dans un tableau excel les valeurs récupérées tous les jours. Chaque jours je récupére le cours du jours et je fais glisser les autres cours en j-1 et ce jusqu'a 60 jours. Ainsi je ne ferais appel à la base que pour les valeurs, les autres valeurs devant etre décalées d'une journée.

Mon code est le suivant :

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
 
Sub Affectjmoins1(nom_feuille)
Dim i
 
For i = 6 To 500
    If (Sheets("recap v2 - a").Range("A" & i)) <> "" Then
        mont = chargement_cours_j_moins1(Sheets("recap v2 - a").Range("A" & i))
        Sheets("Correlation").Range("b" & (i - 4)) = mont
 
        'pour les isin de la colonne A , charge le cours j-1 existants
 
 
    Else
 
    End If
Next i
 
End Sub
 
 
Sub Affectjmoins2(nom_feuille)
Dim i
 
For i = 6 To 500
    If (Sheets("recap v2 - a").Range("A" & i)) <> "" Then
        mont = chargement_cours_j_moins2(Sheets("recap v2 - a").Range("A" & i))
        Sheets("Correlation").Range("c" & (i - 4)) = mont
 
        'pour les isin de la colonne A , charge le cours j-1 existants
 
 
    Else
 
    End If
Next i
 
End Sub
 
 
Sub Affectjmoins3(nom_feuille)
Dim i
 
For i = 6 To 500
    If (Sheets("recap v2 - a").Range("A" & i)) <> "" Then
        mont = chargement_cours_j_moins3(Sheets("recap v2 - a").Range("A" & i))
        Sheets("Correlation").Range("d" & (i - 4)) = mont
 
        'pour les isin de la colonne A , charge le cours j-1 existants
 
 
    Else
 
    End If
Next i
 
End Sub
 
Sub Affectjmoins4(nom_feuille)
Dim i
 
For i = 6 To 500
    If (Sheets("recap v2 - a").Range("A" & i)) <> "" Then
        mont = chargement_cours_j_moins4(Sheets("recap v2 - a").Range("A" & i))
        Sheets("Correlation").Range("e" & (i - 4)) = mont
 
        'pour les isin de la colonne A , charge le cours j-1 existants
 
 
    Else
 
    End If
Next i
 
End Sub

Quelqu'un connait il un code qui permettrait de faire glisser chaque jours les valeurs stockées en j-1 d'une journée ?

Ps: je joins le fichier excel de reférence.

Merci d'avance

olivier

[AlainTech]

Je serais toi, j'ajouterais une colonne devant la colonne B puis je supprimerais la cellule B1.

Simple et rapide.