Discussion :

[john84360]

Bonjour à toutes et à tous,

Je suis débutant en VBA et je suis sur que vous avez déjà eu cette requête...Mais bon j'ai vraiment du mal avec VBA et vous promet que je vais m'y mettre sérieusement...

Voici mon problème.

J'aimerai regrouper dans un tableau l'évolution des volatilités des pairs de devises suivantes : EUR/USD , GBP/USD, AUD/USD. La volatilité journalière se trouve dans les cellules suivantes :

EUR/USD : F20
GBP/USD : M20
AUD/USD : T20

Chaque jour, la volatilité change automatiquement (via la fonction stockhistory). J'aimerai simplement reporter ces volatilités journalière dans un tableau via une macro pour me permettre d'apprécier leur évolutiuon.

Je vous mets en PJ le fichier excel.

Un grand merci par avance pour votre aide.

St dev - Majors.xlsx

[ARTURO83]

Bonjour,

Ajout d'une feuille "Evolutions_journalieres" pour y loger les valeurs.

le code

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
Sub Recup_Valeurs()
    Dim f1 As Worksheet, f2 As Worksheet
    Dim DerLig_f2 As Long
    Application.ScreenUpdating = False
    Set f1 = Sheets("Sheet1")
    Set f2 = Sheets("Evolutions_journalieres")
    DerLig_f2 = f2.Range("A" & Rows.Count).End(xlUp).Row
    If f1.Range("B1") <> f2.Cells(DerLig_f2, "A") Then
        f2.Cells(DerLig_f2 + 1, "A") = f1.Range("B1")
        f2.Cells(DerLig_f2 + 1, "B") = f1.Range("F20")
        f2.Cells(DerLig_f2 + 1, "C") = f1.Range("M20")
        f2.Cells(DerLig_f2 + 1, "D") = f1.Range("T20")
    End If
    f2.Select
    Set f1 = Nothing
    Set f2 = Nothing
End Sub

Pièce jointe 602172

Cdlt

[john84360]

Merci Arturo pour ton aide, c'est top!