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
|
Function LireVentes() As Variant
Dim Ventes(n) As Variant
Dim i As Integer
For i = 1 To n
Ventes(i) = Worksheets("Ventes").Cells(i + 1, 5)
Next
LireVentes = Ventes
End Function
Function LireAchats() As Variant
Dim Achats(n) As Variant
Dim i As Integer
For i = 1 To n
Achats(i) = Worksheets("Achats").Cells(i + 1, 5)
Next
LireAchats = Achats
End Function
Function LireSalaires() As Variant
Dim Salaires(n) As Variant
Dim i As Integer
For i = 1 To n
Salaires(i) = Worksheets("Employés").Cells(i + 1, 10)
Next
LireSalaires = Salaires
End Function
Sub Rentabilité()
Dim Rentabilité As Variant
Dim Ventes As Variant
Dim Achats As Variant
Dim Salaires As Variant
Dim sumVentes As Double
Dim sumAchats As Double
Dim sumSalaires As Double
Dim Bénéfice As Double
Dim i As Integer
Ventes = LireVentes()
Achats = LireAchats()
Salaires = LireSalaires()
sumDepenses = 0
sumRecettes = 0
sumSalaires = 0
For i = 1 To n
sumVentes = sumVentes + Ventes(i)
sumRecettes = sumAchats + Achats(i)
sumSalaires = sumSalaires + Salaires(i)
Next
Bénéfice = sumVentes - sumAchats - sumSalaires - 350000
If Bénéfice > 150000 Then
Rentabilité = 0.33 * Bénéfice
Else
If Bénéfice <= 150000 Then
Rentabilité = 0.15 * Bénéfice
Else
If Bénéfice < 0 Then
Rentabilité = Bénéfice
End If
End If
End If
Worksheets("Résultat").Range("B2").Value = Rentabilité
End Sub |
