Discussion :

[tchiyann]

Bonjour a tous
J'aimerais savori si quelqu'un aurais la syntaxe exacte pour effectuer une boucle en particulier la facon de poser les indices.
le but etant de calculer sur plusieurs colonnes des rentabilité
Voici le code que j'ai essayé mais probleme erreur objet:

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
Sub rendement()
Dim i As Integer
Dim x As Integer
Set x = 2 * i
 
 
For i = 1 To 65 Step 2
 
Set renta = Range(Range("c4"), Range("ag4").End(xlDown)).Offset(0, 65)
 
renta.FormulaR1C1 = "=ln((r[1]"c" & x + r[1]"c" & x+1)/r[0]"c" & x)"
 
Next i
Next x
 
End Sub

[mercatog]

Si tu peux écrire ta formule mathématique de rentabilité et où tu veux l'écrire

[Touffe54]

Pourquoi Next x ?

[tchiyann]

la formule de la rentabilité est ln(cours(t+1)+div(t+1))/cours(t)
sachant que toutes les actions sont a la suite et chaque action a son cour en colonne et son dividende sur la colonne qui suit comme ca pour 32 actions

total bnp ...... .........
cour div cours div cours div cours div
t
t+1
t+2
t+3

[pgz]

Bonjour.

Tu ne le dis pas, mais je pense que ton erreur est sur cette ligne

Code :

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

Set x = 2 * i

L'instruction Set est réservée aux objets. Tu peux remplacer par

Code :

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

x = 2 * i

Encore qu'à cet endroit i = 0.

Cordialement,

PGZ

[mercatog]

Bonjour
ci-joint exemple
La fonction personnelle de calcul de la rentabilité:

Code :

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

1
2
3
4
Private Function CalculRent(ByVal Cours As Double, ByVal CoursPreced As Double, ByVal Divid As Double) As Double
On Error Resume Next
If CoursPreced <> 0 Then CalculRent = Ln((Cours + Divid) / CoursPreced)
End Function

La zone de données de C4 à BNxxx (32 actions, chaque action avec 2 colonnes: Cours et dividende); xxx étant la ligne représentant le derniers cours de la première action (je suppose)
Le code recherche xxx puis établit la fonction pour la rentabilité de l'action 1 entre t1 et t0 (4lignes en bas de xxx). ensuite s'enchainent les copies pour tous les cours d'une même action. Ensuite copier pour l'ensemble des actions

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
Sub AppliquerCR()
Dim LastLig As Long
 
With Sheets("Feuil1")
    'Dernière ligne remplie de la colonne C à partir de C4
    LastLig = .Range("C4").End(xlDown).Row
    'Insère 4 lignes plus bas la fonction de calcul de rentabilité entre t1 et t0
    .Cells(LastLig + 4, 3).Formula = "=CalculRent(C5,C4,D5)"
    'Copie la fonction de t1 jusqu'à tmax
    .Cells(LastLig + 4, 3).AutoFill .Range(.Cells(LastLig + 4, 3), .Cells(2 * LastLig - 1, 3))
    'Copie la zone pour toutes les autres colonnes
    .Range(.Cells(LastLig + 4, 3), .Cells(2 * LastLig - 1, 4)).Copy .Range(.Cells(LastLig + 4, 5), .Cells(2 * LastLig - 1, 66))
    'Remplace les formules par les valeurs (éventuellement
    .Range(.Cells(LastLig + 4, 3), .Cells(2 * LastLig - 1, 66)).Value = .Range(.Cells(LastLig + 4, 3), .Cells(2 * LastLig - 1, 66)).Value
End With
End Sub