Objet requis erreur VBA

Version imprimable

Bonjour à tous et à toutes,
je suis débutant dans le monde de VBA(j'y connais pas grand chose) et nouveau sur ce forum,
je souhaiterai soliciter votre aide. Je cherche à calculer le facteur de rayonnement d'une paroi en fonction de la fréquence d'excitation mais voilà j'ai un soucis dans mon programme que voici:

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
Const pi As Single = 3.14
Const c0 As Integer = 343
Const rho As Single = 1.21

Function sigma(f As Variant) As Variant
End Function

Public Sub rayonnement()

Dim fc As Single
Dim f11 As Single

Dim sigma2 As Single
Dim sigma3 As Single

Dim Y As Variant

Dim delta1 As Variant
Dim delta2 As Variant

Dim L1 As Integer
Dim L2 As Integer
L1 = 5
L2 = 3

fc = 111.65
f11 = ((c0 ^ 2) / (4 * fc)) * ((1 / (L1 ^ 2)) + (1 / (L2 ^ 2)))

Dim J As Integer
 J= 0

For Each f In Range("Feuil1!B5:B25") '<< A Ajuster à ta plage ...

sigma2 = 4 * L1 * L2 * ((f / c0) ^ 2)
sigma3 = Sqr((2 * pi * f * (L1 + L2)) / (16 * c0))

Y = Sqr(f / fc)
If f11 <= (fc / 2) And f > fc Then ' => SI condition 1 validée ALORS
   sigma(f) = 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
   sigma(f) = (((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)))
   sigma(f) = (((2 * (L1 + L2) / (L1 * L2)) * (c0 / fc)) * delta1) + delta2
ElseIf f11 < (fc / 2) And f < f11 And sigma(f) > sigma2 Then
   sigma(f) = sigma2
 
ElseIf f11 > (fc / 2) And f < fc And sigma2 < sigma3 Then
   sigma(f) = sigma2

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

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

End If
 
      J = J + 1
      Sheets("Feuil3").Cells(J, 3).Value = sigma(f)

Next
 
End Sub

quand j'execute le programme le message suivant apparait :

Citation:

erreur d'execution 424 objet requis

pour les lignes en gras et en italiques .
Merci pour votre aide.

05/07/2012, 14h09
issoram
Bonjour

sigma est une fonction définie en haut de ton code:
Code:

1 2 Function sigma(f As Variant) As Variant End Function
Donc une affectation du type

Code:

sigma(f) = 1 / Sqr(1 - (fc / f))

me parait bizarre.
D'autre part ta fonction sigma ne renvoie rien.

en fait au début je n'ai pas définit sigma comme une fonction ( et ça marchait très bien) mais comme dans une autre procédure je fais de nouveau appel à sigma pour différentes zone de f (f<fc, f=fc, f>fc) celle ci considére sigma comme égal à zéro. (Sigma est en fait une distribution de fonctions )

voilà le programme qui marche :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
Const pi As Single = 3.14
Dim f As Variant
Const c0 As Integer = 343
Const rho As Single = 1.21
 
Public Sub rayonnement()
 
Dim fc As Single
Dim f11 As Single
 
Dim sigma As Variant
Dim sigma2 As Single
Dim sigma3 As Single
 
Dim Y As Variant
 
Dim delta1 As Variant
Dim delta2 As Variant
 
Dim L1 As Integer
Dim L2 As Integer
L1 = 5
L2 = 3
 
fc = 111.65
f11 = ((c0 ^ 2) / (4 * fc)) * ((1 / (L1 ^ 2)) + (1 / (L2 ^ 2)))
 
Dim J As Integer
J = 0
 
For Each f In Range("Feuil1!B5:B25") '<< A Ajuster à ta plage ...
 
sigma2 = 4 * L1 * L2 * ((f / c0) ^ 2)
sigma3 = Sqr((2 * pi * f * (L1 + L2)) / (16 * c0))
 
Y = Sqr(f / fc)
 
If f11 <= (fc / 2) And f > fc Then ' => SI condition 1 validée ALORS
   sigma = 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
   sigma = (((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)))
   sigma = (((2 * (L1 + L2) / (L1 * L2)) * (c0 / fc)) * delta1) + delta2
 
ElseIf f11 < (fc / 2) And f < f11 And sigma > sigma2 Then
   sigma = sigma2
 
ElseIf f11 > (fc / 2) And f < fc And sigma2 < sigma3 Then
   sigma = sigma2
 
ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) < sigma3 Then
   sigma = 1 / Sqr(1 - (fc / f))
 
ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) > sigma3 Then
   sigma = sigma3
 
End If
 
      J = J + 1
      Sheets("Feuil3").Cells(J, 3).Value = sigma
 
 
Next
 
 
End Sub
 
Ensuite dans une autre procédure:
 
Sub indice_affaiblissement()
 
Dim sigma As Single
Dim R As Single
Dim Tau As Single
Dim Ms, L1, L2 As Integer
Ms = 460
L1 = 5
L2 = 3
 
Dim J As Integer
J = 0
Dim fc As Single
fc = 111.65
 
 
For Each f In Range("Feuil1!B5:B25")
If f > fc Then
  Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * ((pi * fc * (sigma ^ 2)) / (2 * f))
 
ElseIf f = fc Then
  Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * ((pi * (sigma ^ 2)) / (2))
 
ElseIf f < fc Then
  Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * (2 * 0.5 * (Log((2 * pi * f / c0) * Sqr(L1 + L2)) - (-0.964 - ((0.5 + (L2 / (pi * L1))) * Log(L2 / L1)) + ((5 * L2) / (2 * pi * L1)) - (1 / (4 * pi * L1 * L2 * ((2 * pi * f / c0) ^ 2))))) + ((((L1 + L2) ^ 2) / ((L1 ^ 2) + (L2 ^ 2))) * Sqr(fc / f) * (sigma ^ 2)))
End If
  J = J + 1
      Sheets("Feuil3").Cells(J, 5).Value = Tau
      'R = 10 * ((Log(1 / Tau)) / Log(10))
      'Sheets("Feuil3").Cells(J, 6).Value = R
Next
 
End Sub

dans cette dernière procédure VBA renvoi un sigma nul dans les calculs de la transparence Tau.
Comment faire pour lui envoyé les "bons" sigmas. je sais pas si j'ai été clair?Merci.

Là j'avoue que tu m'as un peu perdu. Essaie peut être d'être plus précis...

De ce que je comprends, il te faut une fonction qui renvoie le bon sigma, pour pouvoir l'utiliser ensuite dans ton calcul de Tau.
Code:

1 2 3 4 5 6 7 8 9 Function sigma (tes paramètres ici : L1,L2,fc, etc.) as single sigma =0 ' valeur par défaut à toi de la définir 'ici tous tes calculs end function 'Calcul de Tau Dim sgm as single sgm = sigma(tes paramètres) Tau =.....

voici le code que vous me conseillez donc :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
Const pi As Single = 3.14
 
Const c0 As Integer = 343
Const rho As Single = 1.21
Dim fc As Single
Dim f11 As Single
 
 
Dim sigma2 As Single
Dim sigma3 As Single
 
Dim Y As Variant
 
Dim delta1 As Variant
Dim delta2 As Variant
 
Dim L1 As Integer
Dim L2 As Integer
 
 
 Dim f As Variant
 
 
 
 Public Function sigma(L1, L2, fc, f, delta1, delta2) As Single
 
    sigma = 0 ' valeur par défaut à toi de la définir
    Dim J As Integer
J = 0
L1 = 5
L2 = 3
fc = 111.65
f11 = ((c0 ^ 2) / (4 * fc)) * ((1 / (L1 ^ 2)) + (1 / (L2 ^ 2)))
    '*************************************************
    For Each f In Range("Feuil3!B5:B25") '<--- l'erreur se situe ici
    '*************************************************
    sigma2 = 4 * L1 * L2 * ((f / c0) ^ 2)
    sigma3 = Sqr((2 * pi * f * (L1 + L2)) / (16 * c0))
 
    Y = Sqr(f / fc)
 
    If f11 <= (fc / 2) And f > fc Then ' => SI condition 1 validée ALORS
       sigma = 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
       sigma = (((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)))
       sigma = (((2 * (L1 + L2) / (L1 * L2)) * (c0 / fc)) * delta1) + delta2
 
    ElseIf f11 < (fc / 2) And f < f11 And sigma > sigma2 Then
       sigma = sigma2
 
    ElseIf f11 > (fc / 2) And f < fc And sigma2 < sigma3 Then
       sigma = sigma2
 
    ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) < sigma3 Then
       sigma = 1 / Sqr(1 - (fc / f))
 
    ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) > sigma3 Then
       sigma = sigma3
 
    End If
 
      J = J + 1
      Sheets("Feuil3").Cells(J, 3).Value = sigma
 
    Next
End Function

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
29
Sub rayonnement()
 
 Dim f As Variant
 Dim R As Single
 Dim Tau As Single
 
'Calcul de Tau
Dim sgm As Single
sgm = sigma(L1, L2, fc, f, delta1, delta2)
 
For Each f In Range("Feuil3!B5:B25")
 
If f > fc Then
  Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * ((pi * fc * (sgma ^ 2)) / (2 * f))
 
ElseIf f = fc Then
  Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * ((pi * (sgma ^ 2)) / (2))
 
ElseIf f < fc Then
   Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * (2 * 0.5 * (Log((2 * pi * f / c0) * Sqr(L1 + L2)) - (-0.964 - ((0.5 + (L2 / (pi * L1))) * Log(L2 / L1)) + ((5 * L2) / (2 * pi * L1)) - (1 / (4 * pi * L1 * L2 * ((2 * pi * f / c0) ^ 2))))) + ((((L1 + L2) ^ 2) / ((L1 ^ 2) + (L2 ^ 2))) * Sqr(fc / f) * (sgma ^ 2)))
 
End If
  J = J + 1
      Sheets("Feuil3").Cells(J, 5).Value = Tau
      R = 10 * ((Log(1 / Tau)) / Log(10))
      Sheets("Feuil4").Cells(J, 6).Value = R
Next
 
End Sub

le problème qui s'affiche est cette fois : "la méthode "range" de l'objet global a échoué" (au niveau de la partie commentée)

je vais tenter de reprendre tout ça demain matin et je vous tiens au courant, en tout cas merci pour votre aide j’apprécie beaucoup! :-)

Bonjour, voici mon dernier 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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Const pi As Single = 3.14
Dim f As Variant
 
Dim fc As Single
Dim L1 As Integer
Dim L2 As Integer
Const c0 As Integer = 343
Const rho As Single = 1.21
 
 
Public Function sigma(f, fc, L1, L2, delta1, delta2, c0, pi) As Single
Dim f11 As Single
 
Dim sigma2 As Variant
Dim sigma3 As Variant
 
L1 = 5
L2 = 3
 
fc = 111.65
f11 = ((c0 ^ 2) / (4 * fc)) * ((1 / (L1 ^ 2)) + (1 / (L2 ^ 2)))
sigma = 0
Dim J As Integer
J = 1
For Each f In Range("Feuil1!B5:B25") '<< A Ajuster à ta plage ...
 
sigma2 = 4 * L1 * L2 * ((f / c0) ^ 2)
sigma3 = Sqr((2 * pi * f * (L1 + L2)) / (16 * c0))
 
Y = Sqr(f / fc)
 
If f11 <= (fc / 2) And f > fc Then ' => SI condition 1 validée ALORS
   sigma = 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
   sigma = (((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)))
   sigma = (((2 * (L1 + L2) / (L1 * L2)) * (c0 / fc)) * delta1) + delta2
 
ElseIf f11 < (fc / 2) And f < f11 And sigma > sigma2 Then
   sigma = sigma2
 
ElseIf f11 > (fc / 2) And f < fc And sigma2 < sigma3 Then
   sigma = sigma2
 
ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) < sigma3 Then
   sigma = 1 / Sqr(1 - (fc / f))
 
ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) > sigma3 Then
   sigma = sigma3
 
End If
 
      J = J + 1
      Sheets("Feuil3").Cells(J, 3).Value = sigma
 
 
Next
 For i = 1 To 10
If Sheets("Feuil3").Cells(i, 3).Value = "" Then Cells(i, 3).Value = " facteur_rayonnement"
Next i
End Function
 
 
Sub rayonnement()
 
 
Dim R As Variant
Dim Tau As Variant
Dim Ms
Ms = 460
L1 = 5
L2 = 3
'Calcul de Tau
Dim sgm As Single
sgm = sigma(f, fc, L1, L2, delta1, delta2, c0, pi)
Dim J As Integer
J = 1
fc = 111.65
For Each f In Range("Feuil1!B5:B25")
'rayonnement
If f > fc Then
  Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * ((pi * fc * (sgma ^ 2)) / (2 * f))
 
ElseIf f = fc Then
  Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * ((pi * (sgma ^ 2)) / (2))
 
ElseIf f < fc Then
  Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * (2 * 0.5 * (Log((2 * pi * f / c0) * Sqr(L1 + L2)) - (-0.964 - ((0.5 + (L2 / (pi * L1))) * Log(L2 / L1)) + ((5 * L2) / (2 * pi * L1)) - (1 / (4 * pi * L1 * L2 * ((2 * pi * f / c0) ^ 2))))) + ((((L1 + L2) ^ 2) / ((L1 ^ 2) + (L2 ^ 2))) * Sqr(fc / f) * (sgma ^ 2)))
End If
  J = J + 1
      Sheets("Feuil3").Cells(J, 5).Value = Tau
       'R = 10 * ((Log(1 / Tau)) / Log(10))
      'Sheets("Feuil3").Cells(J, 6).Value = R
Next
End Sub

cette fois VBA me calcul le bon sigma dans la fonction mais pour le rayonement avec sigm=sigma(paramètres) il me renvoi un sigm=0 pour mes 3 Tau du coup je récupère que la partie ou f<fc. pourquoi sigm=0? j'y arrive pas :cry:

Hello,

Je t'ai mis un peu d'ordre dans tout ça. ça compile chez moi.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
Const pi As Single = 3.14     'Définir ici tes constantes
Const c0 As Integer = 343
Const rho As Single = 1.21
 
Dim fc As Single   'Définir ici toutes tes variables globales
Dim L1 As Integer
Dim L2 As Integer
 
'Ne mettre que les paramètres "necéssaires" à ta fonction
Public Function sigma(ByVal fc, ByVal L1, ByVal L2, ByRef plageSource As Range, ByVal nomFeuilDest As String) As Single
 
    Dim f11 As Single
    Dim sigma2 As Double, sigma3 As Double
    Dim delta1 As Double, delta2 As Double
    Dim J As Integer
    Dim cellule As Range
    Dim f As Variant
 
    sigma = 0
 
    L1 = 5
    L2 = 3
    fc = 111.65
    f11 = ((c0 ^ 2) / (4 * fc)) * ((1 / (L1 ^ 2)) + (1 / (L2 ^ 2)))
 
    J = 1
    For Each cellule In plageSource '<< A Ajuster à ta plage ...
 
        f = cellule.Value
        sigma2 = 4 * L1 * L2 * ((f / c0) ^ 2)
        sigma3 = Sqr((2 * pi * f * (L1 + L2)) / (16 * c0))
 
        Y = Sqr(f / fc)
 
        If f11 <= (fc / 2) And f > fc Then ' => SI condition 1 validée ALORS
           sigma = 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
           sigma = (((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)))
           sigma = (((2 * (L1 + L2) / (L1 * L2)) * (c0 / fc)) * delta1) + delta2
 
        ElseIf f11 < (fc / 2) And f < f11 And sigma > sigma2 Then
           sigma = sigma2
 
        ElseIf f11 > (fc / 2) And f < fc And sigma2 < sigma3 Then
           sigma = sigma2
 
        ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) < sigma3 Then
           sigma = 1 / Sqr(1 - (fc / f))
 
        ElseIf f11 > (fc / 2) And f > fc And (1 / Sqr(1 - (fc / f))) > sigma3 Then
           sigma = sigma3
 
        End If
 
              J = J + 1
              Sheets(nomFeuilDest).Cells(J, 3).Value = sigma
 
    Next cellule
 
    For i = 1 To 10
        If Sheets(nomFeuilDest).Cells(i, 3).Value = "" Then Cells(i, 3).Value = " facteur_rayonnement"
    Next i
 
    'Désallocation mémoire
    Set cellule = Nothing
 
End Function
 
 
Sub rayonnement()
 
    Dim R As Variant, Tau As Variant, f As Variant
    Dim Ms As Integer
    Dim plageSource As Range, cellule As Range
    Dim sgm As Single
    Dim J As Integer
    Dim nomFeuilDest As String
 
    Ms = 460
 
    nomFeuilDest = "Feuil3"                     'on définit la feuille de destination
    Set plageSource = Range("Feuil1!B5:B25")    'on définit la plage source pour f
 
    'Calcul de sigma
    fc = 111.65
    L1 = 5
    L2 = 3
    sgm = sigma(fc, L1, L2, plageSource, nomFeuilDest)
 
    'Rayonnement
    J = 1
    For Each cellule In plageSource
 
        f = cellule.Value
 
        'Calcul de Tau
        If f > fc Then
          Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * ((pi * fc * (sgma ^ 2)) / (2 * f))
 
        ElseIf f = fc Then
          Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * ((pi * (sgma ^ 2)) / (2))
 
        ElseIf f < fc Then
          Tau = (((c0 * rho) / (pi * f * Ms)) ^ 2) * (2 * 0.5 * (Log((2 * pi * f / c0) * Sqr(L1 + L2)) - (-0.964 - ((0.5 + (L2 / (pi * L1))) * Log(L2 / L1)) + ((5 * L2) / (2 * pi * L1)) - (1 / (4 * pi * L1 * L2 * ((2 * pi * f / c0) ^ 2))))) + ((((L1 + L2) ^ 2) / ((L1 ^ 2) + (L2 ^ 2))) * Sqr(fc / f) * (sgma ^ 2)))
        End If
 
        J = J + 1
        Sheets(nomFeuilDest).Cells(J, 5).Value = Tau
               'R = 10 * ((Log(1 / Tau)) / Log(10))
              'Sheets(nomFeuilDest).Cells(J, 6).Value = R
 
        Next cellule
 
        'désallocation
        Set plageSource = Nothing
        Set cellule = Nothing
End Sub

Il faudrait que tu lises quelques cours de programmation quand même. Bon courage.

06/07/2012, 12h49
panda78

Merci beaucoup, je suis en train de lire quelques tutoriels sinon ça compile bien chez moi aussi mais sgma renvoie toujours 0! je ne comprends pas...
06/07/2012, 14h10
issoram

Telle quelle est construite ta fonction sigma renvoie la dernière valeur de sigma calculée pour la dernière valeur de f de ta plage.

Je pense qu'il faut que tu incorpores le calcul du tau à la boucle.
A chaque calcul de Tau correspond une valeur de f et de sigma différente?
06/07/2012, 14h15
panda78

oui tout à fait! chaque Tau est calculé à partir d'un f différent et donc d'un sigma dfférent aussi puisque sigma dépend de f.
06/07/2012, 14h48
panda78

SUPER!!!! Merci infiniment!!!!!!:ccool: