boucles vba Fermé

Question

Bonjour,

Je ne parviens pas à faire comprendre à ces boucles qu'elles doivent s'exécuter en même temps .

le résultat de cette macro et que dans chaque cellule cells(i,3), il va m'exécuter pour chaque J, l'opération Application.StDev(Range(Cells(3, k), Cells(10000, k))) puis passer au i suivant .Ce que je ne veux pas .

Autrement dit pour i = 2 par exemple il va me calculer dans la même cellule

Cells(2, 3).Value = Application.StDev(Range(Cells(3, 18), Cells(10000, 18)))
Cells(2, 3).Value = Application.StDev(Range(Cells(3, 21), Cells(10000, 21)))

etc etc

=> ce qui n'a aucun intérêt d'autant plus que le résultat précèdent est écrasé à chaque fois

Ce que je souhaite c'est que i et j varie en même temps, de telle sorte que j'ai (par ex):

pour i = 2 et j = 6

et donc k = 18

Cells(2, 3).Value = Application.StDev(Range(Cells(3, 18), Cells(10000, 18)))

pour i = 3 et j = 7

et donc k = 21

Cells(3, 3).Value = Application.StDev(Range(Cells(3, 21), Cells(10000, 21)))

Merci pour votre aide !

Matthieu

Sub calcul_volatilité()

Sheets("data").Select

'vol annualisée du taux sans risque (eonia/ester)

Dim i As Integer
Dim y As Integer

For i = 2 To 32
For j = 6 To 36

k = j * 3

Cells(i, 3).Value = Application.StDev(Range(Cells(3, k), Cells(10000, k)))

Next j

Next i

End Sub

Windows / Chrome 111.0.0.0

f894009 · Answer

Bonjour,

Avec ce que j'ai compris.

Par contre, 2*6=12 si 3*7=21 et pour j max a 36!

Sub calcul_volatilité()
    Dim i As Integer
    Dim y As Integer
    
    Sheets("data").Select
    'vol annualisée du taux sans risque (eonia/ester)
    J = 6
    For i = 2 To 32
        k = i * J
        Cells(i, 3).Value = Application.StDev(Range(Cells(3, k), Cells(10000, k)))
        J = J + 1
    Next i
End Sub

Boucles vba

1 réponse

Discussions similaires