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
|
Sub Test()
Dim F1 As Single
Dim F21 As Single
Dim F22 As Single
Dim F32 As Single
Dim F41 As Single
Dim F42 As Single
Dim A As Single
Dim B As Single
Dim C As Single
Dim D As Single
Dim E As Single
Dim ValeurRetenue As Single
'fonctions sinus
A = Sin([B17] / [Z$30])
B = Sin([C17] / [AA$30])
C = Sin([D17] / [AB$30])
D = Sin([E17] / [AC$30])
E = Sin([F17] / [AD$30])
'premières fonctions
F1 = A + B
F21 = A + B + C
F22 = A + B - C
'les résultats sont collés dans les cellules
[AL12] = F1
[AN12] = F21
[AO12] = F22
'tests pour affectation de la valeur retenue
If F21 > F1 Then
ValeurRetenue = F21
End If
If F22 > F1 Then
ValeurRetenue = F22
End If
If F21 < F1 And F22 < F1 Then
ValeurRetenue = F1
End If
'idem...
F21 = F21 + D
F32 = A + B + D
[AQ12] = F21
[AR12] = F32
If F31 > F21 Then
ValeurRetenue = F31
End If
If F32 > F21 Then
ValeurRetenue = F32
End If
If F31 < F1 And F32 < F21 Then
ValeurRetenue = F21
End If
F41 = A + B + C + E
F42 = A + B + C - E
[AT12] = F41
[AU12] = F42
If F41 > F21 Then
ValeurRetenue = F41
End If
If F42 > F21 Then
ValeurRetenue = F42
End If
If F41 < F21 And F42 < F21 Then
ValeurRetenue = F21
End If
'affiche la valeur retenue une fois toute la batterie
'de fonctions et tests exécutés
MsgBox ValeurRetenue
End Sub |
