Arrêt Subit d'exécution de fonction

Version imprimable

Bonjour,
J'écris un code me permettant de calculer la volatilité
voici le code

Code:

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:

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:

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

04/09/2013, 15h31
parmi

Bonjour,

Se pourrait-il que tes tableaux soient à 2 dimensions ?
04/09/2013, 15h32
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 :cry:
je préfère:

Code:

If Trim("" & TableauPoids(i)) <> "" Then
04/09/2013, 15h50
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:

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.
04/09/2013, 16h05
Invité

2 pièce(s) jointe(s)

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
04/09/2013, 16h19
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:

1 2 UBound(TableauPoids, 1) 'ou alors UBound(TableauPoids)
il me dit

Code:

Ubound(TableauPoids) = 1

je ne comprends pas.
04/09/2013, 16h32
Invité
Oui car comme tu définis dim TableauPoids(), Excel converti comme si tu demandais un cellule cells(1,1)
Code:

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