Re : Codage Bandes de Bollinger/Finance
Voici le code que j ai utilisé (en le récupérant d'une macro) qui fonctionne mais qui peut être amélioré en utilisant une boucle For... je présume. J'ai essayé de le mettre en place mais cela ne fonctionne pas . Quelqu'un aurait-il une piste?
sachant que ma plage de données se trouve sur les cellules A1:B75
Code:
Range("D1").Select
ActiveCell.FormulaR1C1 = "MMA"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2]:R[19]C[-2])"
Range("D3").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(OFFSET(R[-1]C[-2]:R[18]C[-2],1,0))"
Range("D3").Select
Selection.AutoFill Destination:=Range("D3
75")
Range("D3
75").Select
Range("C1").Select
ActiveCell.FormulaR1C1 = "Bollinger bas"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=RC[1]-2*STDEVA(RC[-1]:R[19]C[-1])"
Range("C3").Select
ActiveCell.FormulaR1C1 = "=RC[1]-2*STDEVA(OFFSET(R[-1]C[-1]:R[18]C[-1],1,0))"
Range("C3").Select
Selection.AutoFill Destination:=Range("C3:C75")
Range("C3:C75").Select
Range("E1").Select
ActiveCell.FormulaR1C1 = "Bollinger haut"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+2*STDEVA(RC[-3]:R[19]C[-3])"
Range("E3").Select
ActiveCell.FormulaR1C1 = "=RC[-1]+2*STDEVA(OFFSET(R[-1]C[-3]:R[18]C[-3],1,0))"
Range("E3").Select
Selection.AutoFill Destination:=Range("E3:E75")
Range("E3:E75").Select