Date anglais vers français

Fermé
Gemstar - Modifié le 10 mai 2017 à 11:29
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 10 mai 2017 à 14:11
Bonjour,

Tout d'abord pardon s'il s'agit d'un doublon cependant je n'ai pas trouvé de réponse à mon problème sur d'autres posts/sujets

Voilà, j'ai un fichier dont certaines dates sont en anglais
Sous la Forme "01-DEC-2011" par exemple.
Cependant lorsque je change le format de mes cellules vers un format date.
Certains mois ne sont pas convertis car les mois sont en anglais

FEB doit devenir Févr
APR doit devenir AvR
MAY doit devenir MAi
AUG doit devenir AUoût
DEC doit devenir DéC

lorsque je modifie manuellement ça fonctionne.

Auriez-vous une astuce ou un code VBA pour les convertir ? en effet j'ai plus
de 60 fichiers contenant chacun environs 400 dates

Merci de votre aide

Cordialement

Remy
A voir également:

2 réponses

Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 5 082
Modifié le 10 mai 2017 à 12:01
Bonjour,

essaye comme cela pour une date format Anglais Feb-1-2017 saisie en A2

=(INDEX({1;2;3;4;5;6;7;8;9;10;11;12};EQUIV(GAUCHE(A2;TROUVE("-";A2)-1);{"Jan";"Feb";"Mar";"Apr";"May";"Jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"};0))&"/"&DROITE(A2;NBCAR(A2)-TROUVE("-";A2)))*1

ou avec CHERCHE
=(INDEX({1;2;3;4;5;6;7;8;9;10;11;12};EQUIV(GAUCHE(A2;CHERCHE("-";A2)-1);{"Jan";"Feb";"Mar";"Apr";"May";"Jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"};0))&"/"&DROITE(A2;NBCAR(A2)-CHERCHE("-";A2)))*1


par contre si ton format est 01-DEC-2011

=DATE(DROITE(A2;NBCAR(A2)-TROUVE("-";A2;TROUVE("-";A2)+1));(INDEX({1;2;3;4;5;6;7;8;9;10;11;12};EQUIV(STXT(A2;TROUVE("-";A2)+1;TROUVE("-";A2;TROUVE("-";A2)+1)-TROUVE("-";A2)-1);{"Jan";"Feb";"Mar";"Apr";"May";"Jun";"Jul";"Aug";"Sep";"Oct";"Nov";"Dec"};0)))*1;GAUCHE(A2;TROUVE("-";A2)-1))

ensuite tu formates tes cellule dans le format souhaité

A+
Mike-31

Je suis responsable de ce que je dis, pas de ce que tu comprends...
0
Hello,

Merci pour ta réponse rapide.
cela fonctionne avec ton format qui est FEB-1-2011 cependant ça ne fonctionne pas avec le format "01-FEB-2011" de ce fait il faut maintenant inverser les jours et les mois.

Merci encore


Remy
0
J'ai crée une macro avec l'enregistreur qui utilise un control+H
ça fonctionne mais ce n'est pas optimal.

Merci pour votre aide

Remy
0