Discussion :

[Kutoh]

Bonjour,
J'écris un code me permettant de calculer la volatilité
voici le 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
25
26
27
28
 
Function CalculVol(MatriceVarCov As Range, Poids As Range) As Double
Dim TableauMatrice(), TableauCovariance(), TableauVariances(), TableauPoids()
Dim i As Integer, j As Integer
Dim SoeVar, MaCov
 
TableauMatrice = MatriceVarCov.Value 
TableauPoids=Poids.Value                                     
  If TableauPoids(i) = Empty Then
       TableauPoids(i) = 0
  End If
ReDim TableauVariances(1 To UBound(TableauMatrice, 1))
    For i = 1 To UBound(TableauMatrice, 1)
        TableauVariances(i) = TableauPoids(i) * TableauPoids(i) * TableauMatrice(i, i)
    Next i
 
MaCov = 0: SoeVar = 0: i = 0
 
For i = 1 To UBound(TableauMatrice, 1)
    SoeVar = SoeVar + TableauVariances(i)
        For j = 1 To UBound(TableauMatrice, 1)
            If j > UBound(TableauMatrice, 1) Then GoTo Suite
            MaCov = MaCov + 2 * TableauMatrice(i, j) * TableauPoids(i) * TableauPoids(j)
        Next j
Next i
Suite:
CalculVol = SoeVar + MaCov
End Function

Le problème c'est que ma fonction s'arrête à ce niveau

Code :

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

   If TableauPoids(i) = Empty Then

et ne me donne aucun résultat. Et quand je met cette partie du code en commentaire, elle s'arrête à ce niveau

Code :

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

1
2
 
TableauVariances(i) = TableauPoids(i) * TableauPoids(i) * TableauMatrice(i, i)

En fait quand je dis qu'elle s'arrête, ca ve dire qu'elle se comporte comme si j'avais mis Exit Function à ce niveau

Je ne sais pas pourquoi elle se comporte ainsi. Une idée?
Thank's

[parmi]

Bonjour,

Se pourrait-il que tes tableaux soient à 2 dimensions ?

[Invité]

Bonjour,
n'as tu pas un On Error?
c'est le cas typique, il y a une erreur donc l'appli quitte la fonction pour ce positionné à la gestion de l'erreur.

personnellement je n'aime pas les Empty ou les IsEmpty c'est source d'erreur
je préfère:

Code :

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

If Trim("" & TableauPoids(i)) <> "" Then

[Kutoh]

En fait j'ai mis Trim ca me fait la même chose.
Quand j'ai mis On error Resume Next ça ne rempli pas mes tableaux.
En fait j'ai l'impression que la multiplication d'éléments d'un tableau ne se fait pas ainsi :

Code :

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

TableauPoids(i) * TableauPoids(i) * TableauMatrice(i, i)

Parmi mes tableaux sont des matrices de variance covariance, donc j'ai autant de lignes que de colonnes.

[Invité]

place 1 point d’arrêt touche [F9] sur If TableauPoids(i) = Empty Then

ouvre la fenêtre espion voir image.

fais glisser avec la sourie ta variable TableauPoids et inspecte la dan cette fenêtre

[Kutoh]

En fait j'arrive déjà à voir ce détail dans la fenêtre Variables locales et je remarque bien que mon TableauPoids à 16 valeurs. Mais ce qui me chiffonne, c'est que lorsque je fait

Code :

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

1
2
UBound(TableauPoids, 1) 'ou alors 
UBound(TableauPoids)

il me dit

Code :

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

Ubound(TableauPoids) = 1

je ne comprends pas.

[Invité]

Oui car comme tu définis dim TableauPoids(), Excel converti comme si tu demandais un cellule cells(1,1)

Code :

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

1
2
3
4
Dim TableauPoids(10, 1)
For i = 0 To UBound(TableauPoids)
a = CInt(TableauPoids(0, 0)) * CInt(TableauPoids(0, 1))
Next