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
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
| '************************************************************
'NOM FONCTION : ChangeDateLettre(MaDate)
'ROLE : Renvois une date sous forme de chaîne de caractères
'ENTREE : de type Date
'RETOUR : de type String
'Exemple : =ChangeDateLettre("12/01/2011")
'OU =ChangeDateLettre(LaCellule)
'Renverra la valeur : Le Douze Janvier Deux-Mille-Onze
'SOURCE : http://www.archeoz.com/Forum/
'AUTEUR : Cédric VIGHETTI Développeur et formateur en informatique
'************************************************************
Function ChangeDateLettre(MaDate As Date) As String
'Déclaration des variables
Dim oJour As Integer, oMois As Integer, oAnnee As Integer
'Récupération du jour
oJour = Day(MaDate)
'Récupération du mois
oMois = Month(MaDate)
'Récupération de l'année
oAnnee = Year(MaDate)
'Concaténation du retour des fonctions
ChangeDateLettre = ChangeJour(oJour) & ChangeMois(oMois) & _
ChangeAnnee(oAnnee)
End Function
'Fonction qui sera appelée par notre fonction principal ChangeDateLettre() pour lui retourner le jour en chaîne de caractères.
'***********************************************************************
'NOM FONCTION : ChangeJour(oJour)
'ROLE : Renvois la valeur numérique sous forme de chaîne de caractères
'ENTREE : de type Integer
'RETOUR : de type String
'Exemple : ChangeJour(12)
'Renverra la valeur : Le Douze
'SOURCE : http://www.archeoz.com/Forum/
'AUTEUR : Cédric VIGHETTI Développeur et formateur en informatique
'***********************************************************************
Function ChangeJour(oJour As Integer) As String
Select Case oJour
Case Is = 1
ChangeJour = "Le Premier "
Case Is = 2
ChangeJour = "Le Deux "
Case Is = 3
ChangeJour = "Le Trois "
Case Is = 4
ChangeJour = "Le Quatre "
Case Is = 5
ChangeJour = "Le Cinq "
Case Is = 6
ChangeJour = "Le Six "
Case Is = 7
ChangeJour = "Le Sept "
Case Is = 8
ChangeJour = "Le Huit "
Case Is = 9
ChangeJour = "Le Neuf "
Case Is = 10
ChangeJour = "Le Dix "
Case Is = 11
ChangeJour = "Le Onze "
Case Is = 12
ChangeJour = "Le Douze "
Case Is = 13
ChangeJour = "Le Treize "
Case Is = 14
ChangeJour = "Le Quatorze "
Case Is = 15
ChangeJour = "Le Quinze "
Case Is = 16
ChangeJour = "Le Seize "
Case Is = 17
ChangeJour = "Le Dix-Sept "
Case Is = 18
ChangeJour = "Le Dix-Huit "
Case Is = 19
ChangeJour = "Le Dix-Neuf "
Case Is = 20
ChangeJour = "Le Vingt "
Case Is = 21
ChangeJour = "Le Vingt-et-Un "
Case Is = 22
ChangeJour = "Le Vingt-Deux "
Case Is = 23
ChangeJour = "Le Vingt-Trois "
Case Is = 24
ChangeJour = "Le Vingt-Quatre "
Case Is = 25
ChangeJour = "Le Vingt-Cinq "
Case Is = 26
ChangeJour = "Le Vingt-Six "
Case Is = 27
ChangeJour = "Le Vingt-Sept "
Case Is = 28
ChangeJour = "Le Vingt-Huit "
Case Is = 29
ChangeJour = "Le Vingt-Neuf "
Case Is = 30
ChangeJour = "Le Trente "
Case Is = 31
ChangeJour = "Le Trente-et-Un "
End Select
End Function
'Fonction qui sera appelée par notre fonction principal ChangeDateLettre() pour lui retourner le mois en chaîne de caractères.
'***********************************************************************
'NOM FONCTION : ChangeMois(oMois)
'ROLE : Renvois la valeur numérique sous forme de chaîne de caractères
'ENTREE : de type Integer
'RETOUR : de type String
'Exemple : ChangeMois(12)
'Renverra la valeur : Décembre
'SOURCE : http://www.archeoz.com/Forum/
'AUTEUR : Cédric VIGHETTI Développeur et formateur en informatique
'***********************************************************************
Function ChangeMois(oMois As Integer) As String
Select Case oMois
Case Is = 1
ChangeMois = "Janvier "
Case Is = 2
ChangeMois = "Février "
Case Is = 3
ChangeMois = "Mars "
Case Is = 4
ChangeMois = "Avril "
Case Is = 5
ChangeMois = "Mai "
Case Is = 6
ChangeMois = "Juin "
Case Is = 7
ChangeMois = "Juillet "
Case Is = 8
ChangeMois = "Août "
Case Is = 9
ChangeMois = "Septembre "
Case Is = 10
ChangeMois = "Octobre "
Case Is = 11
ChangeMois = "Novembre "
Case Is = 12
ChangeMois = "Décembre "
End Select
End Function
'***********************************************************************
'NOM FONCTION : ChangeAnnee(oAnnee)
'ROLE : Renvois la valeur numérique sous forme de chaîne de caractères
'ENTREE : de type Integer
'RETOUR : de type String
'Exemple : ChangeAnnee(2011)
'Renverra la valeur : Deux-Mille-Onze
'SOURCE : http://www.archeoz.com/Forum/
'AUTEUR : Cédric VIGHETTI Développeur et formateur en informatique
'***********************************************************************
Function ChangeAnnee(oAnnee As Integer) As String
Select Case oAnnee
Case Is = 2005
ChangeAnnee = "Deux-Mille-Cinq"
Case Is = 2006
ChangeAnnee = "Deux-Mille-Six"
Case Is = 2007
ChangeAnnee = "Deux-Mille-Sept"
Case Is = 2008
ChangeAnnee = "Deux-Mille-Huit"
Case Is = 2009
ChangeAnnee = "Deux-Mille-Neuf"
Case Is = 2010
ChangeAnnee = "Deux-Mille-Dix"
Case Is = 2011
ChangeAnnee = "Deux-Mille-Onze"
Case Is = 2012
ChangeAnnee = "Deux-Mille-Douze"
Case Is = 2013
ChangeAnnee = "Deux-Mille-Treize"
Case Is = 2014
ChangeAnnee = "Deux-Mille-Quatorze"
Case Is = 2015
ChangeAnnee = "Deux-Mille-Quinze"
Case Is = 2016
ChangeAnnee = "Deux-Mille-Seize"
'Pour ajouter une année de votre choix
'Copier/coller les 2 lignes ci-dessous en rouge juste
'au dessus sous la dernière année saisie.
'Penser à enlever l'apostrophe qui passe la ligne en commentaire.
'Case Is = Votre année en chiffre
'ChangeAnnee = "Résultat en LETTRE"
'CASE ELSE pour avertir que l'année n'est pas prévue
Case Else
ChangeAnnee = "Année non existante dans la macro"
End Select
End Function |
