Tranformer nombre en date et heure

Bonjour,

J'extracte des numéros de suivis (généré sur base de la date et heure du moment) d'une base de donnée.
Celà donne une suite de nombre comme ceci "180416065930".

Afin d'analyser cette donnée, j'aimerai, sans tranformer ma BDD, convertie cette suite de chiffre en JJ:MM:AA et HH:MM:SS.

J'ai suivi quelques tuto mais je bloque au niveau des heures ..

En ayant en A1 180416065930
J'extrait en B1 la date avec =STXT(A1;1;6) et je converti avec =DATE(20&DROITE(B2;2);STXT(B2;3;2);GAUCHE(B2;2)) dans la ceulle D1.

Pour les heures, je ne parvient pas à convertir la donnée =STXT(4;7;6) qui, en donnée brut affiche 065930 .. j'aimerai qu'en E1 cette donnée soient convertie en 06h59 (les secondes ne sont pas nécessaire.

Merci pour votre aide :-)

Damien

Salut, toujours intéressant à lire et appliquer : Comprendre et gérer les dates sous Excel et en VBA

Bonjour,

puisque nous sommes dans le forum VBA, voici une proposition VBA à adapter

Une fonction qui converti la chaine en date + heure + minutes

si la chaine de départ est inférieure à 10, la fonction renvoie un message d'erreur dans la cellule

Code:

---

1 2 3 4 5 6 7 8

Function ChiffresToDate(Valeur As Variant) Select Case Len(Valeur) Case Is >= 10 ChiffresToDate = Mid(Valeur, 1, 2) & "/" & Mid(Valeur, 3, 2) & "/20" & Mid(Valeur, 5, 2) & " " & Mid(Valeur, 7, 2) & ":" & Mid(Valeur, 9, 2) Case Else ChiffresToDate = "#SourceErronee" End Select End Function

---

La fonction est à mettre dans un module standard


Pour la tester :

- écrire en A1 "180416065930" au format texte (ou précéder les chiffres d'une apostrophe pour forcer le texte)
- en A2, écrire la formule "=ChiffresToDate(A1)"

Bonjour,

Super, ça fonctionne très bien !

Le tout en une cellule mais je vais essayer de décomposer la formule ..

Bonne journée !

Damien