transformer un nombre en une date

[jtitin]

Bonjour à tous
je reçoi un fichier dont une cellule comporte un nombre
ce nombre correspond à une date et je cherche à transformer ce nombre en date

1235706 qui correspond à 22/12/2012
1236601 31/12/2012
130802 08/01/2013
131307 13/01/2013
135103 20/02/2013

Les deux premier chiffres de chaque nombre représentent l'année (2012, 2013)

les deux derniers représentent le jour avec 01 pour Lundi et Dimanche 07

les deux ou trois du millieu représentent le 1er au 365 ou 366 ème jour de l'année

comment transformer le nombre en date
merci

 

[JHA]

Re : transformer un nombre en une date

Bonjour à tous,

Je ne trouve pas le même résultat que toi.

=("1/1/"&GAUCHE(B3;2))+STXT(B3;3;3)-1

JHA

 

[Dranreb]

Re : transformer un nombre en une date

Bonjour.
Avec cette formule, je trouve le même résultat:

=DATE(GAUCHE(B3;2)+2000;1;STXT(B3;3;NBCAR(B3)-4))

Cordialement

 

[youky(BJ)]

Re : transformer un nombre en une date

Bonjour à tous,
Voici ma formule dans le fichier
Bruno

 

[hoerwind]

Re : transformer un nombre en une date

Bonjour youky(BJ), salut les autres,

Pour youky :
La fin de ta formule :
SI(NBCAR(B3)=7;STXT(B3;3;3);STXT(B3;3;2))
peut être remplacé par (plus court) :
STXT(B3;3;NBCAR(B3)-4)

 

[ralph45]

Re : transformer un nombre en une date

Bonjour à tous,

En supposant que 1235706 soit en A2, coller en C2 =

=DATEVAL("01/01/20"&GAUCHE(A2;2))+(SI(NBCAR(A2)=7;GAUCHE(DROITE(A2;5);3);GAUCHE(DROITE(A2;4);2))-1)

+ format de type jj/mm/aaaa

A+

 

[youky(BJ)]

Re : transformer un nombre en une date

Bonjour hoerwind
EXACT ! !
Je n'y avais pas pensé.
Bonjour Dranreb qui a été le plus rapide et le plus court.
Bruno

 

[jtitin]

Re : transformer un nombre en une date

merci à tous pour vos réponses

est il possible d'utiliser la formule de Dranreb dans un formulaire VBA
=DATE(GAUCHE(B3;2)+2000;1;STXT(B3;3;NBCAR(B3)-4))

Exemple
j'ai 2 texbox, dans la Textbox1 je rentre le N° 1235706
et lorsque je clic sur le bouton envoi le calcul se fait dans la textbox2 et le résultat s'incrémente sur la feuil1 en cellule A1
je vous met un fichier joint avec un commencement mais il beugue
merci pour votre aide

 

[Dranreb]

Re : transformer un nombre en une date

Function DateSpéc(ByVal Z As String) As Date
DateSpéc = DateSerial(Left$(Z, 2) + 2000, 1, Mid$(Z, 3, Len(Z) - 4))
End Function

Cordialement.