Discussion :

[alex67380]

Bonjour,

Je cherche désespérément un moyen de calculer la rentabilité absolue de 4 indices sur une période donnée dans le fichier ci-joint et de transférer les résultats obtenus dans un tableau annexe.

Je cherche donc comment calculer pour chaque indice la rentabilité absolue = (Cours final / Cours initial) -1 , avec VBA.

Je sais que sur VBA il faut que j'utilise une boucle afin d'automatiser la recherche.

Quelqu'un aurait-il une idée ?

Merci beaucoup.

[Kimy_Ire]

Bonjour,

Sur ce que tu donnes, je ne comprends pas la calcul à faire en fait. Tu as 4 colonnes avec des indices différents.

Sur chaque ligne/colonne, quel est le calcul souhaité ?

[alex67380]

Le calcul a effectué est pour l'indice spxt_index : (B288/B2)-1 .

Pour l'instant j'effectue le calcul de la façon suivante sur VBA:

Code :

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

perf_spxt = ((range("b288"))/(range("b2"))-1

et la même chose pour les 3 autres indices.

Par contre cette méthode prend beaucoup de place et je cherche le moyen de faire les 4 calculs grâce à une boucle.

[Kimy_Ire]

Je ne sais pas si j'ai compris ta demande mais je te propose ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub rentabilité()
Dim rent As Range
 
With Worksheets("feuille 1")
    Set rent = .Range("A1")
    For i = 1 To .Rows(1).Find("*", , , , , xlPrevious).Column - 1
        rent.Offset(.Columns(i + 1).Find("*", , , , xlByColumns, xlPrevious).Row, i) = (rent.Offset(.Columns(i + 1).Find("*", , , , xlByColumns, xlPrevious).Row - 1, i) / rent.Offset(1, i)) - 1
    Next i
End With
 
End Sub

Ca place sur la dernière ligne les rentabilités des 4 colonnes.
Dis moi si je n'ai pas compris.
De plus quel est le but de faire cela en VB ?

[nibledispo]

Bonjour Kimy_Ire,

Je ne suis pas parvenu à intégrer dans ton code que je peine à décrypter l'effacement du résultat existant; action qui me semble strictement nécessaire. Je pense que tu comprends le pourquoi.
Aussi j'ai produit le code ci-dessous.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub rentabilitélp()
Dim rent As Range
Set rent = Cells(2, 1).End(xlDown).Offset(1, 0)
rent.EntireRow.ClearContents
With Worksheets("feuille 1")
    For i = 2 To Cells(2, 1).End(xlToRight).Column
        rent.Offset(0, i - 1).Value = .Cells(288, i) / .Cells(2, i) - 1
    Next i
End With
End Sub

Cordialement,