date et heure am/pm Résolu/Fermé

Question

Bonjour à tous,

Pour le besoin d'une analyse j'ai exporter des références qui sont exporter dans excel.
j'aimerai pouvoir ressortir cette donnée " 3/24/2014 5:39:06 AM " dans deux autres cellules,
l'une qui me donne la date et l'autre l'heure.
Je vous remercie d'avance en espérant rapidement une réaction pour moi pouvoir avancé.

Vaucluse · Answer

Bonsoir
la transformation dépend de beaucoup de chose dans la, configuration du texte 
entre autres:
quel est votre format date, français ou anglais? (jj/mm/aaa ou mmm/jj/aaa?
comment sont inscrites les dates et les heures quand il n'y a qu'un chiffre, toujours le chiffre seul ou alors 04 05 etc.

Voila un exemple qui traite du texte dans les cas de figure les plus compliqués, mais les formule sont un e tordu

en haut,en noir, transformer le jour mm/jj/aaa en jj/mm/aaaa

en bas, en rouge et nettement plus simple, le principe si le format résultat est le même que le format origine.

Mais bien sur, dans "ma" version de date soit jj/mm/aaa
ce second cas est beaucoup plus simple et doit s'appliquer si vos formats sont bien mm/jj/aaa

crdlmnt
https://www.cjoint.com/?DCBtpQmxxUr

eriiic · Answer

Bonjour,

Lors de ton importation (et non exportation), à l'étape 3 sélectionne la colonne de dates,  et sélectionne son format (JMA ou MJA) dans la liste déroulante.
Sinon tu vas avoir des dates erronées. Certaines au format français et d'autres au format anglais.

Duplique ta colonne. Sur la 1ère tu mets le format de cellule jj/mm/aa, et sur l'autre le format hh:mm

Pour déposer un fichier : cjoint.com et coller ici le lien fourni.

eric

foo · Answer

Bonjour

tu peux aussi faire une macro

Sub testDate()
Range("D7").Value = DateValue(Range("C7").Value)
Range("E7").Value = TimeValue(Range("C7").Value)
End Sub

a toi de voir

A+
Maurice

foo · Answer

Bonjour

Voila par rapport a ton modele

Sub testDate()
   For L = 2 To Range("A" & Rows.Count).End(xlUp).Row
      Range("B" & L).Value = DateValue(Range("A" & L).Value)
      Range("C" & L).Value = TimeValue(Range("A" & L).Value)
   Next
End Sub

A+
Maurice

Date et heure am/pm

4 réponses

Discussions similaires