pbl date

[natacha]

Bonjour à tous,
j'aimerais savoir comment transformer:20000113 (format cellule: standart) en 13/01/2000. merci d'avance
Natacha

 

[porcinet82]

Re : pbl date

Salut Natacha,

En suposant que 20000113 soit en cellule A1 :
Par formules :
=DROITE(A1;2)&"/"&STXT(A1;5;2)&"/"&GAUCHE(A1;4)

En vba :
Cells(1, 2).Value = Right(Cells(1, 1).Value, 2) & "/" & Mid(Cells(1, 1).Value, 5, 2) & "/" & Left(Cells(1, 1).Value, 4)

@+

 

[PascalXLD]

Re : pbl date

Bonjour

autre solution

=DATE(GAUCHE(A1;4);STXT(A1;5;2);DROITE(A1;2))

Bon courage

 

[PascalXLD]

Re : pbl date

Re

La meme en macro pour suivre l'exemple de romain

Range("B2") = DateSerial(Left(Range("A1"), 4), Mid(Range("A1"), 5, 2), Right(Range("A1"), 2))

 

[porcinet82]

Re : pbl date

re, Salut Pascal,

Ton code semble plus approprié puisqu'il donne directement le résultat sous forme de date, donc merci a toi pour cette petite correction.

Au plaisir,

@+