Calcul de rentabilité sur VBA

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.

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é ?

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:

---

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.

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

Code:

---

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 ?

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:

---

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,