Discussion :

[tetro27]

Bonjour, je souhaite calculer le rendement de plusieurs actions (1 action = 1 colonne) et se sur plusieurs prix journalier. La formule que je désire utilisé est (PRIX t - (PRIX t-1))/(PRIX t-1)
P.S : je fais ceci afin d’alléger mon fichier qui sera très volumineux
merci à l'avance

[Menhir]

http://www.developpez.net/forums/d84...s-discussions/

[joe.levrai]

Bonjour,

tu as ta formule, il te suffit de l'écrire dans une de tes cellules, après avoir activé l'enregistreur de macro.
Ca va une bête opération entre deux cellule du style "=(A1-A2)/A2"


Tu obtiens un code VBA pour débuter et l'intégrer à ton fichier

si tu as des soucis lors de l'adaptation, reviens avec ton code et explique ce que tu n'arrives pas à faire, et comment sont situées tes données

peu de gens ouvriront ton fichier, ton problème ne le nécessite pas. Soigne ton explication

[tetro27]

j'ai utilisé un code que j'ai trouver ici et tenté de l'adapter mais j'obtient toujours un run-time error 1004 voici ce que j'ai tenter:

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
18
19
Sub rdt()
 
Dim i As Long, j As Long, P As Object
Dim derl As Long, derc As Long
 
derl = Sheets("histo").UsedRange.Rows.Count - 1
derc = Sheets("histo").UsedRange.Columns.Count
 
Set P = Range(Sheets("rendement").Cells(1, 1), Sheets("rendement").Cells(derl, derc))
 
With Worksheets("histo")
    For i = 1 To derl
        For j = 1 To derc
           P.Cells(i, j) = (((Cells(i + 1, j)) - (Cells(i, j))) / (Cells(i, j)))
        Next j
    Next i
End With
 
End Sub

[Malick]

@ tetro27 : Pour une meilleure lisibilité, essayez de mettre votre code entre les balises # prévues à cet effet. Voici le guide pour y arriver :

démonstration de l'utilisation du bouton code (#)

Sinon pensez à l'enregistreur de macros comme vous le suggère Joe