XL 2016 données date en format mm/jj/aaaa hh:mm:ss

job75

XLDnaute Barbatruc

• 15 Octobre 2019

• #2

Bonsoir shayulira,

Les cellules A3 et A4 contiennent des textes et non pas des nombres au format Date.

Pour éviter ce genre de problème entrez en B3 et C3 la formule =--$A3 et tirez-la vers le bas.

Ensuite mettez la colonne B au format jj/mm/aaaa et la colonne C au format hh:mm:ss ou hh:mm si vous ne voulez pas voir les secondes.

A+

 

Dernière édition: 15 Octobre 2019

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 15 Octobre 2019

• #3

Bonsour®

shayulira à dit:

Je souhaiterais récupérer la date au format jj/mm/aaaa dans une colonne puis l'heure au format hh:mm (sans les secondes) dans une autre.
Par ailleurs, vous pourrez constater que les deux premières cellules n'ont pas le même format que les autres : ce sont les seules à être au format jj/mm/aaaa hh:mm:ss.

Cliquez pour agrandir...

autre méthode
"By Design" un texte "numérique" devient numérique lors de l'utilisation d'un opérateur mathématique...
magie d'Excel :
en B3 la formule : =ENT(A3) format jj/mm/aaaa
en C3 la formule : =MOD(A3;1) format hh:mm
sélectionner simultanément ces 2 cellules
puis double cliquer sur le coin inférieur droit de C3

 

Vote positif 0 Vote négatif

S

shayulira

XLDnaute Nouveau

• 16 Octobre 2019

• #4

Bonjour Job75 et Modeste geedee

je vous remercie pour vos retours rapides qui règlent en partie mon problème : avec vos méthodes, la date est bien dissociée de l'heure qui s'affiche bien en hh:mm.
Cependant, est sauf erreur de ma part, la date reste au format mm/jj/aaaa malgré la mise au format jj/mm/aaaa. J'ai l'impression que la mise au format ne prend pas.
Pour info, mais vous l'aurez compris, le 10 qui se répète dans toutes les cellules correspond au mois d'octobre.
Vous serait-il possible de me renvoyer le fichier avec vos solutions.
En vous remerciant par avance.

 

Pièces jointes

• Dates avec horaires.xlsx

  15.8 KB · Affichages: 13

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2019

• #5

Bonjour shayulira, Modeste geede, le forum,

Donc d'après vous à partir de A5 les jours et les mois ont été inversés par une conversion au format US.

Pour les remettre dans le bon ordre entrez en B3 et tirez vers le bas :

Code:

=SI(JOUR(A3)>12;ENT(A3);DATE(ANNEE(A3);JOUR(A3);MOIS(A3)))

Bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 16 Octobre 2019

• #6

Bien comprendre qu'à partir de A5 les dates sont tout à fait normales et appartiennent au mois de décembre, puis novembre, octobre, etc...

Rien ne permet de savoir qu'il faut inverser les mois et les jours, il n'y a que vous qui pouvez le décider.

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 16 Octobre 2019

• #7

Bonsour®

shayulira à dit:

Cependant, est sauf erreur de ma part, la date reste au format mm/jj/aaaa malgré la mise au format jj/mm/aaaa. J'ai l'impression que la mise au format ne prend pas.
Pour info, mais vous l'aurez compris, le 10 qui se répète dans toutes les cellules correspond au mois d'octobre.

Cliquez pour agrandir...

je comprend surtout que vos données viennent d'une appli autre que Excel !!!
"By Design" Excel utilise lors de l'ouverture et avant toute action opérateur une reconnaissance automatique de date (selon le format local)
les dates reconnues valides sont bien au format interne Excel !!! (cadrage numérique droit)
les dates non reconnues restent au format texte !!! (cadrage texte gauche, il n'existe pas de mois supérieur à 12



soit tu nous fourni ici le fichier original (non excel, i.e. ".csv", ".txt" ou autre)
soit tu importes toi-même ce fichier en utilisant l'assistant de conversion en précisant à l'étape 3 pour chaque champ "date" le format lu !!!

 

Dernière édition: 16 Octobre 2019

Vote positif 0 Vote négatif

S

shayulira

XLDnaute Nouveau

• 17 Octobre 2019

• #8

Bonjour Job75,
merci pour votre réponse mais cela ne fonctionne pas si on entre la date du 10/28/2019 pour 28 octobre 2019

 

Vote positif 0 Vote négatif

S

shayulira

XLDnaute Nouveau

• 17 Octobre 2019

• #9

Bonjour Job75 et Modeste geedee,
effectivement les données qui me sont fournies ne proviennent pas d'excel : je les récupère telles quelles et je dois les exploiter.
Vos aides m'ont été précieuses pour répondre en grande partie à mon problème et je vous en remercie beaucoup.
Cordialement

 

Vote positif 0 Vote négatif

D

Docmarti

XLDnaute Occasionnel

• 17 Octobre 2019

• #10

Bonjour.
Voici une suggestion en VBA pour recuperer vos dates inversees.

VB:

Sub Recuperer_Date_inversee()
 
 dern = Cells(Rows.Count, 1).End(xlUp).Row
 Set r = Range(Cells(3, 1), Cells(dern, 1))
 
 T = r.Value 'On met dans T les dates inversees et les dates non inversees
 
 r.NumberFormat = "@" 'On change la propriete Numberformat pour String
 r.Value = T 'Ceci transforme toutes les dates en String
 
 T = r.Value 'On met dans T les dates de type String
 
 r.NumberFormat = "" 'On change la propriete Numberformat pour Standard
 r.FormulaLocal = T ' Ceci transforme les dates de type String en valeurs de type Date
 
End Sub

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Octobre 2019

• #11

Bonjour shayulira, Modeste geedee, Docmarti,

Si les dates/heures importées sont toujours des textes au format mm/jj/aaaa hh:mm:ss :

- avant de les importer en colonne A mettre cette colonne au format Texte pour éviter toute conversion

- formule en B3 =DATEVAL(STXT(A3;4;2)&"/"&GAUCHE(A3;2)&"/"&STXT(A3;7;4))

- formule en C3 =TEMPSVAL(DROITE(A3;8))

A+

 

Pièces jointes

• Dates avec horaires(1).xlsx

  13.8 KB · Affichages: 16

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 18 Octobre 2019

• #12

Bonsour®
oui si c'est par collage
non si c'est par ouverture directe (Excel aura fait sa reconnaissance avant intervention utilisateur)

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 18 Octobre 2019

• #13

Si les données sont stockées dans un fichier TXT il y a 2 solutions :

- soit on ouvre le fichier TXT manuellement, on copie les données et on les colle en colonne A du fichier précédent

- soit on ouvre le fichier TXT par macro, la copie se fait avec inversion automatique des mois et des jours :

VB:

Sub Importer_TXT()
Dim dest As Range
Application.ScreenUpdating = False
With Feuil1 'CodeName de la feuille
    Set dest = .[A3] '1ère cellule de destination
    dest.Resize(.Rows.Count - dest.Row + 1, 3).ClearContents 'RAZ
End With
With Workbooks.Open(ThisWorkbook.Path & "\FichierTXT.txt").Sheets(1).UsedRange 'à adapter
    dest.Resize(.Rows.Count) = .Columns(1).Value
    dest(1, 2).Resize(.Rows.Count) = "=INT(RC[-1])"
    dest(1, 3).Resize(.Rows.Count) = "=RC[-2]-RC[-1]"
    .Parent.Parent.Close
End With
End Sub

Téléchargez les fichiers joints dans le même répertoire (le bureau).

 

Pièces jointes

• VBA Import TXT(1).xlsm

  19.4 KB · Affichages: 14
• FichierTXT.txt

  2.2 KB · Affichages: 15

Vote positif 0 Vote négatif