calcul avec un logarithme, erreur de procédure 5

**Titened** · 17/06/2011, 15h28

Bonjour, j'ai un problème avec ce code.
C'est la ligne en rouge qui va pas. Quand je la met en commentaire, le programme tourne niquel. J'ai vérifié les variables utilisées, ce sont les mêmes que pour les 2 lignes d'en dessous (qui marchent !). Les valeurs dans le logarithme sont positives et non nulles...

je vous ai mis dans le programme toutes les valeurs des variables au moment où il y a le "débogage".

Merci d'avance pour votre aide

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
compt =2'déclaré comme integer, comme col
H0 = 2 ' H0 déclaré comme variant
For col = 1 To 36
    If IsEmpty(Workbooks("macro2").Sheets("Hpic(Dirp)").Cells(3, col)) = True Then
        fun = 2
    Else
        m1 = Workbooks("macro2").Worksheets("hi-H0" & col).Range("AB3").Value  'quand survient le bug, m1=30,43564, m1 est déclaré comme variant

        mini = Workbooks("macro2").Worksheets("hi-H0" & col).Range("AF3").Value ' mini = 30,43564 au moment du bug, mini est déclaré comme variant
        mu = Workbooks("macro2").Sheets("constantes").Cells(8, col).Value 'mu=8.206327E-2, déclaré comme variant
        P = Workbooks("macro2").Sheets("hi-H0" & col).Range("K2").Value 'P=1.290999 au moment du bug, déclaré comme variant
        rho_weibull = Workbooks("macro2").Sheets("hi-H0" & col).Range("G3").Value 'rho_weibull = 1,0932476 au moment du bug, déclaré comme variant


        
        
       If mini = m1 Then
            Sheets("houle_dirp").Cells(2, compt).Value = H0 + (1 / rho_weibull * Math.Log(12 * mu)) ^ (1 / P)
            Sheets("houle_dirp").Cells(3, compt).Value = H0 + (1 / rho_weibull * Math.Log(120 * mu)) ^ (1 / P)
            Sheets("houle_dirp").Cells(4, compt).Value = H0 + (1 / rho_weibull * Math.Log(1200 * mu)) ^ (1 / P)
            Sheets("houle_dirp").Cells(6, compt).Value = mini

           End If
compt = compt + 1 
End If
Next col

**pgz** · 17/06/2011, 15h46

Bonjour.

SUr la ligne qui te pose pb, et avec tes valeurs 12*mu < 1. Donc le Log est négatif. Or l'opérateur "^" a une particularité :

L'argument number ne peut être négatif que si l'argument exponant est un entier

Et ici 1/p n'a rien d'entier.

Pour t'en tirer, tu peux prendre la valeur absolu et rétablir le signe ensuite.

En espérant être clair et cordialement,

PGZ