Discussion :

[FFGUY]

Bonjour,

J ai dans mon fichier des dates dans le format suivant 8/11/2014 12:00:00 AM, j'aimerais mettre ces dates en format DD/MM/YYYY.
Mon probleme est que mes dates ne sont pas reconnues par excel et je n ai pas reussi a trouver un code qui me permette de les modifier directement.
Quelqu'un aurait il une idee ?

Merci,

[Invité]

http://www.developpez.net/forums/d14...e/#post7919409

[FFGUY]

Mon Probleme c est que si j utilise une formule du type =DATEVALUE(MID(B1022;4;2) & "/" & LEFT(B1022;2) & "/" & RIGHT(B1022;4)) ca ne fonctionnera pas car la longueur de ma chaine de caractere change.

[Thautheme]

Bonjour le fil, bonjour le forum,

Peut-être un : Split(Ta_cellule_date_longue," ")(0) qui devrait de renvoyer le texte avant l'espace = 8/11/2014 (de ton exemple)... Non testé...

[Invité]

donnes plusieurs exemple de txt qui change de longueur et ou il faut extraire la date

[FFGUY]

Concretement mes dates peuvent etre sous les formes suivantes: 8/22/2014 12:00:00 AM ou 11/22/2014 12:00:00 AM ou 8/8/2014 12:00:00 AM ou 11/8/2014 12:00:00 PM.

[mercatog]

Une fonction basique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Function MaDate(ByVal Tmp As String) As Date
 
MaDate = CDate(Format(Tmp, "mm/dd/yyyy"))
End Function

[Invité]

Concretement mes dates peuvent etre sous les formes suivantes: 8/22/2014 12:00:00 AM ou 11/22/2014 12:00:00 AM ou 8/8/2014 12:00:00 AM ou 11/8/2014 12:00:00 PM.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub TEST()
Debug.Print txtDate(" 8/22/2014 12:00:00 AM ")
Debug.Print txtDate(" 11/22/2014 12:00:00 AM ")
Debug.Print txtDate(" 8/8/2014 12:00:00 AM ")
Debug.Print txtDate(" 11/8/2014 12:00:00 PM.")
Debug.Print txtDate(" 11/8/2014 12:00:00 BOF.")
End Sub
 
Function txtDate(txt As String) As Date
Dim d
Dim h
h = Split(Trim(txt), " ")
d = Split(h(0), "/")
txtDate = d(2) & "-" & d(0) & "-" & d(1) & " " & h(1)
End Function

[FFGUY]

Parfait, ca marche tres tres bien.

Merci Beaucoup a vous et Bonne journee.