Discussion :

[panda78]

Bonjour,

j'ai écrit le code que voici:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 For Each cellule In plageSource '<< A Ajuster à la plage ...
      
        f = cellule.Value
        sigma2 = 4 * L1 * L2 * ((f / c0) ^ 2)
        sigma3 = Sqr((2 * pi * f * (L1 + L2)) / (16 * c0))
        teta = teta0 + (Ms / (485 * Sqr(f)))
        Y = Sqr(f / fc)
                     
  'Calcul de sigma
        If f11 <= (fc / 2) And f > fc Then ' => SI condition 1 validée ALORS
           sigmaM = 1 / Sqr(1 - (fc / f))
                
           
        ElseIf f11 <= (fc / 2) And f < fc And f > (fc / 2) Then  ' => SINON, SI condition 2 validée ALORS
           delta1 = ((1 - (Y ^ 2)) * Log(((1 + Y) / (1 - Y)) + (2 * Y))) / (4 * ((pi) ^ 2) * ((1 - (Y ^ 2)) ^ (1.5)))
           delta2 = 0
           sigmaM = (((2 * (L1 + L2) / (L1 * L2)) * (c0 / fc)) * delta1) + delta2
         
           
        ElseIf f11 <= (fc / 2) And f < (fc / 2) Then '=> SINON
           delta1 = ((1 - (Y ^ 2)) * Log(((1 + Y) / (1 - Y)) + (2 * Y))) / (4 * ((pi) ^ 2) * ((1 - (Y ^ 2)) ^ (1.5)))
           delta2 = (8 * (c0 ^ 2) * (1 - (2 * (Y ^ 2)))) / ((fc ^ 2) * (pi ^ 4) * L1 * L2 * Y * Sqr(1 - (Y ^ 2)))
           sigmaM = (((2 * (L1 + L2) / (L1 * L2)) * (c0 / fc)) * delta1) + delta2
          
           
        ElseIf f11 < (fc / 2) And f < f11 And sigmaM > sigma2 Then
           sigmaM = sigma2
           
           
        ElseIf f11 > (fc / 2) And f < fc And sigma2 < sigma3 Then
           sigmaM = sigma2
          
           
        ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) < sigma3 Then           sigmaM = 1 / Sqr(1 - (fc / f))
           
           
        ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) > sigma3 Then
           sigmaM = sigma3
           
          
        End If

l'epaisseur est entré en selectionnant sa valeur à l'aide d'un combobox, le souci est qu'à partir d'une certaine épaisseur selectionnée vba affiche le message d'erreur suivant : erreur d'execution 5 : argument ou appel de procédure incorrect. le débogage corespond à la ligne en gras soulignée.
en cliquant dans l'aide je trouve l'explication suivante :Un argument dépasse probablement la plage des valeurs permises.
comment régler le problème pour ne pas etre limité dans mes calculs?
Merci.

[mercatog]

Code :

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

ElseIf f11 > (fc / 2) And f > fc And sigma3 * Sqr(Abs(1 - (fc / f))) > 1 Then

Si f<=fc et les 5 premières conditions ne sont pas remplies, on teste la 6ème (ton erreur) et après le 2ème And tu auras division par 0 ou racine d'un nombre négatif

[panda78]

dans ce cas ma 6eme condition serait plutôt :

Code :

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

ElseIf f11 > (fc / 2) And f > fc And sigma3 * Sqr(Abs(1 - (fc / f))) < 1 Then

f étant supérieur à fc on a alors (1 - (fc / f)) positif.
J'ai peut être oublié de le signaler mais f est une plage de fréquence qui couvre 20 cellules, donc il prends plusieurs valeurs différentes.

[mercatog]

Pourquoi < 1
Tu avais

Code :

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

ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) < sigma3 Then

Au cas où fc=f tu auras division par zéro
Au cas où fc/f>1, tu auras racine d'un nombre négatif

Code :

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

1
2
3
ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) < sigma3 Then 'Initiale
ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(Abs(1 - (fc / f)))) < sigma3 Then 'Pour éviter l'erreur racine d'un nombre négtif
ElseIf f11 > (fc / 2) And f > fc And 1 < sigma3 * Sqr(Abs(1 - (fc / f))) Then 'Pour éviter division par 0

f étant supérieur à fc on a alors (1 - (fc / f)) positif.

C'est ce que nous voulons prouver

Regarde ce petit exemple, c'est pareil

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim x As Integer
 
x = -8
If x > 2 Then
    MsgBox "x est supérieur à 2"
ElseIf x > 0 And Sqr(x) < 2 Then
    MsgBox "racine de x inférieur à 1"
Else
    MsgBox " erreur"
End If
End Sub

On a reproduit ton erreur 5!!

[panda78]

en fait je pense avoir compris : quand j'augmente l'épaisseur je diminue fc à tel point que mon sigma d'est plus couvert par mes 6 conditions et vba donne alors sigma=0 et donc Log(0) il n'est pas ça mais comment faire alors ?

[mercatog]

mais comment faire alors ?

Revois tes conditions tenant compte de l'exemple du post #4

[panda78]

ok je verrai ça demain et je vous tiens au courant , en tout cas merci du coup de main j'apprécie vraiment.