conversion format de date

Version imprimable

25/09/2007, 16h46
norac

conversion format de date

Bonjour,

comment transformer une cellule comme celle ci

Code:

Sep 24 2007 8:23:28:000PM

en

Code:

dd/mm/aaaa hh(24):mm

merci d'avance pour votre aide
25/09/2007, 16h57
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 ?
25/09/2007, 16h59
norac
Non excel ne le reconnait pas comme une date.

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

1 2 Sep 24 2007 7:03:28:000PM Sep 24 2007 10:08:35:000PM
25/09/2007, 17h12
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 :)

Hello,

voici une fonction de transcodage appropriée :

Code:

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:

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

26/09/2007, 15h03
norac

Bonjour cafeine,

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

Code:

= TranscodeDate(B1)

la cellule B1 est bien en texte

le retour est :

Code:

#VALEUR!

où me suis je tromper ?
26/09/2007, 16h08
cafeine

Puisque ça marche chez moi, c'est que tu n'as pas copié ce code dans un nouveau module mais plutôt dans un module de feuille/ThisWorkbook ... non ?
26/09/2007, 16h58
Tdeny

À mon avis, c'est parceque c'est en format pur texte que ça ne marche pas.
Je te fournis ici un fichier qui le fait mais avec 2 colonnes de données supplémentaires pour le codage du mois anglais en chiffre.
27/09/2007, 10h05
norac

Citation:

Envoyé par cafeine

Puisque ça marche chez moi, c'est que tu n'as pas copié ce code dans un nouveau module mais plutôt dans un module de feuille/ThisWorkbook ... non ?

Non je l'ai bien mis dans un nouveau module.
Je ne comprends pas.
27/09/2007, 13h28
cafeine

1 pièce(s) jointe(s)

et là ?