OVH Cloud OVH Cloud

Date en Anglais

2 réponses
Avatar
Aiwa
Bonjour, j'ai un petit probleme j'ai un fichier j'utilise la formule
Aujourdhui() en format date ex: 20 juin 2005 , mais j'ai dans un onglet un
formulaire ou il faut écrit la date en anglais, ma question y a t'il une
formule pour le faire.

Merci à l'avance

2 réponses

Avatar
Modeste
Bonsour® Aiwa
j'ai dans un onglet un formulaire ou il faut écrit la date en anglais, ma
question

y a t'il une formule pour le faire.


sans formule, un simple format suffit !!!

en cherchant à répondre à cette question,
je suis tombé par hasard là-dessus :
parmi la liste des formats personalisés :
format de date [$-40C]jjjj,j mmmm aaaa
en anglais :
[$-400]jjjj, mmmm jj, aaaa

en français
mercredi 30 juin 2004
[$-40C]jjjj j mmmm aaaa

étant certain de ne pas avoir créé moi-même ces formats
j'ai cherché à comprendre ????
j'ai abouti à ceci :
Sub Macro3()
' Macro enregistrée le 30/06/2004 par geedee
Dim n$
For i = 0 To 15
n$ = Evaluate("dec2hex(" & i & ", 1)")
Cells(i + 1, 2) = n$
Cells(i + 1, 1).NumberFormat = "[$-40" & n$ & "]dddd
d mmmm yyyy"
Cells(i + 1, 1).Value = Now()
Next
End Sub
résultats:

Wednesday 30 June 2004
????? 30 ??? 2004
dimecres 30 juny 2004
??? 30 ?? 2004
streda 30 cerven 2004
onsdag 30 juni 2004
Mittwoch 30 Juni 2004
??????? 30 ???????

2004
Wednesday 30 June 2004
miércoles 30 junio 2004
keskiviikko 30 kesäkuu 2004
mercredi 30 juin 2004


??? ????? 30 ????

@+

Avatar
Aiwa
Merci


Bonsour® Aiwa
j'ai dans un onglet un formulaire ou il faut écrit la date en anglais, ma
question

y a t'il une formule pour le faire.


sans formule, un simple format suffit !!!

en cherchant à répondre à cette question,
je suis tombé par hasard là-dessus :
parmi la liste des formats personalisés :
format de date [$-40C]jjjj,j mmmm aaaa
en anglais :
[$-400]jjjj, mmmm jj, aaaa

en français
mercredi 30 juin 2004
[$-40C]jjjj j mmmm aaaa

étant certain de ne pas avoir créé moi-même ces formats
j'ai cherché à comprendre ????
j'ai abouti à ceci :
Sub Macro3()
' Macro enregistrée le 30/06/2004 par geedee
Dim n$
For i = 0 To 15
n$ = Evaluate("dec2hex(" & i & ", 1)")
Cells(i + 1, 2) = n$
Cells(i + 1, 1).NumberFormat = "[$-40" & n$ & "]dddd
d mmmm yyyy"
Cells(i + 1, 1).Value = Now()
Next
End Sub
résultats:

Wednesday 30 June 2004
????? 30 ??? 2004
dimecres 30 juny 2004
??? 30 ?? 2004
streda 30 cerven 2004
onsdag 30 juni 2004
Mittwoch 30 Juni 2004
??????? 30 ???????

2004
Wednesday 30 June 2004
miércoles 30 junio 2004
keskiviikko 30 kesäkuu 2004
mercredi 30 juin 2004


??? ????? 30 ????

@+