Ecrire les dates au format anglais

Je voudrais afficher les dates avec les mois en anglais

Tu peux profiter du fait que la fonction "TEXTE" évaluée dans une macro
VBA permet de renvoyer des dates formatées en Anglais.

Voici quelques exemples de fonctions et macros :

 Function D_ENG(D As Long, Optional format As String) As String
If format = "" Then format = "dd mmmm yyyy"
D_ENG = Evaluate("TEXT(" & D & ",""" & format &""")")
End Function
 Function D_FR(D As String) As Date
D_FR = Evaluate("value(""" & D & """)")
End Function
sub Dates_Eng()
Selection = Evaluate("transpose(transpose(TEXT(" & _
Selection.Address(external:=True) & ",""dd mmmm
yyyy"")))")
end sub
sub Dates_Fr()
Selection = Evaluate("transpose(transpose(value(" & _
Selection.Address(external:=True) & ")))")
Selection.NumberFormatLocal = "jj mmmm aaaa"
end sub


=D_ENG(Date;format) renvoie une chaîne de caractères traduisant la date donnée en argument en Anglais selon le format indiqué, ou à défaut au format "dd mmmm yyyy".
Par exemple, =D_ENG(CNUM("10/1/90");"

dd mmmm yyyy") renvoie "Wednesday 10 January 1990"

=D_FR(Date_Texte) convertit la date donnée (texte en Anglais) en un numéro de série.

La macro Dates_Eng transforme les dates de la plage sélectionnée en dates (texte) anglaises au format "dd mmmm yyyy", et la macro Dates_Fr convertit les dates de la plage sélectionnée (textes en Anglais) en numéros de série.

Auteur(s) : 

Ce mois-ci sur Excelabo

- Pas de nouvelle page.
- 7 pages modifiées.