-
Notifications
You must be signed in to change notification settings - Fork 1
/
P2C4 - AVDJ.vb
149 lines (122 loc) · 3.67 KB
/
P2C4 - AVDJ.vb
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
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
Sub Mise_a_jour_reporting()
'Création d'une nouvelle colonne
Columns("K:K").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("K1").Select
'Nom de la colonne
ActiveCell.FormulaR1C1 = "Chiffre d'affaires"
Range("K2").Select
Application.CutCopyMode = False
'Formule pour calculer le chiffre d'affaires par produit
ActiveCell.FormulaR1C1 = "=RC[-2]*RC[-1]"
Range("K2").Select
Selection.AutoFill Destination:=Range("K2:K45")
Range("K2:K45").Select
'changement du format
Selection.NumberFormat = "#,##0.00 $"
Columns("K:K").Select
Range("K2").Activate
'Changement de la couleur et gras sur la colonne
'ajout des lignes
Rows("1:1").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
'création de la somme pour le calcul du CA total
Range("K1").Select
ActiveCell.FormulaR1C1 = "=SUM(R[3]C:R[46]C)"
'sous_programme pour le titre
titre_reporting
'sous programme pour la mise en forme du CA
mise_en_forme_CA
'sous programme pour la mise en forme de Glutenfree
glutenfree
'changement des données de la colonne Bio
Range("F4:F100").Select
Selection.Replace What:="Oui", Replacement:="Bio", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Sheets.Add(After:=ActiveSheet).Name = "Calcul"
Range("A1").Value = "Calcul de la quantité moyenne de vente"
Range("A2").Value = "Calcul de la plus petite vente"
Range("A3").Value = "calcul de la plus grande vente"
Range("A4").Value = "nombre de vente à 0"
Range("A5").Value = "Somme du nombre de vente"
Range("B1").Value = "=AVERAGE(Feuil1!R[1]C[8]:R[44]C[8])"
Range("B2").Value = "=MIN(Feuil1!RC[8]:R[43]C[8])"
Range("B3").Value = "=MAX(Feuil1!R[-1]C[8]:R[42]C[8])"
Range("B4").Value = "=COUNTIF(Feuil1!RC[8]:R[43]C[8],0)"
Range("B5").Value = "=SUM(Feuil1!R[-3]C[8]:R[40]C[8])"
End Sub
Sub glutenfree()
Dim modif_var As String
i = 4
Do While i < 100
modif_var = Range("E" & i).Value
If modif_var = "Oui" Then
Range("E" & i).Value = "Gluten Free"
Else
End If
i = i + 1
Loop
End Sub
Sub mise_en_forme_CA()
Dim test_CA As Double
'Mise en forme des cellules CA
For i = 4 To 100
test_CA = Range("K" & i).Value
Range("K" & i).Select
'En rouge et jaune
If test_CA < 1000 Then
'En rouge
With Selection.Font
.Color = -16776961
.Bold = True
End With
Else
'en vert
With Selection.Font
.Color = -11489280
.Bold = True
End With
End If
Next i
End Sub
Sub titre_reporting()
Dim mois As Integer
Dim mois_titre As String
'calcul de la date du jour
Range("A1").Value = "=TODAY()"
'calul du mois
Range("B1").Value = "=MONTH(RC[-1])"
'chargement de la variable mois
mois = Range("B1").Value
'selection du mois pour le titre du reporting
Select Case mois
Case 1
mois_titre = "Janvier"
Case 2
mois_titre = "Fevrier"
Case 3
mois_titre = "Mars"
Case 4
mois_titre = "Avril"
Case 5
mois_titre = "Mai"
Case 6
mois_titre = "Juin"
Case 7
mois_titre = "Juillet"
Case 8
mois_titre = "Aout"
Case 9
mois_titre = "Septembre"
Case 10
mois_titre = "Octobre"
Case 11
mois_titre = "Novembre"
Case 12
mois_titre = "Decembre"
End Select
'Titre du reporting
Range("E1").Value = "Reporting du mois de " & mois_titre
End Sub