Discussion :

[mary_pilou]

Bonjour, je dois calculer la rentabilité et stat d'indices boursiers. Voici mon code :

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
20
21
22
23
24
Option Base 1
Public Plage_Rentas As Range
 
 
Sub Statistiques_Elémentaires()
Dim Tableau_Résultats() As Variant
Dim Ligne_Tableau As Integer
Dim Feuille As Worksheet
Nb_Actions = ThisWorkbook.Worksheets.Count - 1
ReDim Tableau_Résultats(Nb_Actions, 7)
Ligne_Tableau = 0
For Each Feuille In ThisWorkbook.Worksheets
If Feuille.Name <> "Statistiques" Then
Feuille.Activate
 
Call Calcule_Rentas
Ligne_Tableau = Ligne_Tableau + 1
Tableau_Résultats = Statistiques(Feuille, Tableau_Résultats, Ligne - Tableau)
End If
Next Feuille
Worksheets("Statistiques").Activate
Range("A2").Select
Range(Selection, Selection.Offset(Nb_Actions - 1, 6)).Value = Tableau_Résultats
End Sub

Code :

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

1
2
3
4
5
Sub Calcule_Rentas()
Range("C3").Select
Set Plage_Rentas = Range(Selection, Selection.End(xlDown)).Offset(-1, 1)
Plage_Rentas.FormulaR1C1 = "=LN((R[1]C2+RC3/RC2)"
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Function Statistiques(Feuille, Tableau_Résultats, Ligne_Tableau)
Tableau_Résultats(Ligne_Tableau, 1) = Feuille.Name
Tableau_Résultats(Ligne_Tableau, 2) = Plage_Rentas.Cells.Count
Tableau_Résultats(Ligne_Tableau, 3) = WorksheetFunction.Average(Plage_Rentas)
Tableau_Résultats(Ligne_Tableau, 4) = WorksheetFunction.Median(Plage_Rentas)
Tableau_Résultats(Ligne_Tableau, 5) = WorksheetFunction.StDev(Plage_Rentas)
Tableau_Résultats(Ligne_Tableau, 6) = WorksheetFunction.Skew(Plage_Rentas)
Tableau_Résultats(Ligne_Tableau, 7) = WorksheetFunction.Kurt(Plage_Rentas)
Statistiques = Tableau_Résultats
 
End Function

VBA me dit que l'erreur est ici,
Please si qql peut m'aider! merci par avance!!!!!!

[tedo01]

Bonjour,
La formule a deux parenthèses ouvertes pour une seule fermée...