Discussion :

[norac]

Bonjour,

comment transformer une cellule comme celle ci

Code :

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

Sep 24 2007  8:23:28:000PM

en

Code :

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

dd/mm/aaaa hh(24):mm

merci d'avance pour votre aide

[Alqualonde]

Bonjour,

Est-ce qu'Excel reconnaît la première comme une date ? (voir dans les formats). Si oui, il suffit de changer le format et de mettre un format comme celui que tu veux mettre, il en existe un parfait.

Si non, est-ce que tes données sont formatées toutes pareilles de façon à ce qu'on puisse récupérer les données de jour, mois, année, heure... en sélectionnant une partie précise de la cellule ?

[norac]

Non excel ne le reconnait pas comme une date.

Non la date n'a pas le meme format exemple :

Code :

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

1
2
Sep 24 2007  7:03:28:000PM
Sep 24 2007 10:08:35:000PM

[Alqualonde]

Dans ton exemple, les deux lignes sont bien alignés, un espace est présent devant le 7 qui correspond à l'heure. Est-ce bien le cas en réalité ?
D'autre part, est-ce qu'il y a les mois de juin et juillet dans tes données ? (car avec un affichage du mois sur 3 lettres ça peut être codé différemment)

Si tu as un exemple de fichier n'hésite pas à l'attacher, ça sera plus facile pour te répondre

[cafeine]

Hello,

voici une fonction de transcodage appropriée :

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
16
17
18
19
20
21
22
23
Function TranscodeDate(ByVal s As String) As Date
 
    ' à adapter si les mois sont en français ...
    Const mois As String = "JanFebMarAprMayJunJulAugSepOctNovDec"
 
    Dim m As Integer
    Dim info() As String
    Dim d As Date
    Dim t As Double
    info = Split(s, " ")
 
    m = (InStr(mois, Left(s, 3)) - 1) / 3 + 1
    d = DateSerial(CInt(info(2)), m, CInt(info(1)))
    info = Split(info(3), ":")
    t = (IIf(Right(info(3), 2) = "PM", 12, 0) + CInt(info(0))) / 24 + _
        CInt(info(1)) / 24 / 60 + _
        CInt(info(2)) / 24 / 60 / 60 + _
        CInt(Left(info(3), 3)) / 24 / 60 / 60 / 1000
 
 
    TranscodeDate = d + t
 
End Function

exemple :

Code :

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

1
2
?TranscodeDate("Sep 24 2007 10:08:35:600PM")
 24/09/2007 22:08:36

[norac]

Bonjour cafeine,

J'ai integrer ta fonction dans un module et j'essaye de mettre la formule suivante

Code :

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

= TranscodeDate(B1)

la cellule B1 est bien en texte

le retour est :

Code :

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

#VALEUR!

où me suis je tromper ?