conversion de dates

[aubelix]

Bonsoir à toutes et à tous.
Je m'adresse à vous pour essayer de résoudre le problème suivant :
Je récupère un fichier dont les dates sont au format :

jmmaa (10605) correspondant au 01/06/05 ou
jjmmaa (210605) correspondant au 21/06/05. (voir fichier joint)

Comment par formule, convertir les dates récupérées au format
jj/mm/aa.

Par avance merci pour vos réponses

 

[pat1545.]

Salut,

essaie ceci en vba


Sub ChangerEnDate()
If Selection.Columns.Count > 1 Then MsgBox ('Une colonne à la fois ! '): Exit Sub
Selection.TextToColumns FieldInfo:=Array(0, 4)
End Sub

Patrick

 

[fred]

bonsoir,
le format de tes cellules au départ est-il en format date ?

 

[Gérard DEZAMIS]

Bonsoir Aubelix Fred et Patrick
Une donnée en A1

=SI(ET(NBCAR(A1)=5;ESTNUM(A1));(GAUCHE(A1;1)&'/'&DROITE(GAUCHE(A1;3);2)&'/'&DROITE(A1;2))*1;SI(ET(ESTNUM(A1);NBCAR(A1)=6);(GAUCHE(A1;2)&'/'&DROITE(GAUCHE(A1;4);2)&'/'&DROITE(A1;2))*1;''))
a mettre en A2 avec un format cellule nombre date

C'est un peu lourding mais ...

@+ GD

 

[aubelix]

Bonsoir Gérard, Pat1545, Fred et tous les amis du Forum.
Tout d'abord merci pour vos réponses qui fonctionnent bien.
Un seul problème de conversion avec la macro VBA :
Si la date comporte 5 chiffres, la date n'est pas convertie.

Quant au format de la date, je la convertie en nombre en mutipliant
toutes les données par 1.

Encore une fois merci.

 

[Monique]

Bonjour,

Avec juste un peu de retard :
=(GAUCHE(A1;1+(NBCAR(A1)=6))&'/'&STXT(A1;2+(NBCAR(A1)=6);2)&'/'&DROITE(A1;2))*1

Et, en plus, j'ai triché sur Gérard...

 

[Gérard DEZAMIS]

Bonsoir Monique et tous les Forumeurs !

De la triche, rien que de la triche d'accord mais ça fait quand même économiser près de 110 caractères par formule .... une paille !

Je roule à 188 je suis sûr de me faire épingler même sur autoroute et toi tu te balades à 80 tranquille !

Sécurité et économie.
Une fois de plus Bravo et :kiss:

@+ GD

 

[aubelix]

Bonsoir le Forum.
Merci Monique pour ta réponse super allégée.
:kiss:

 

[Victor]

Bonsoir Aubelix,

as-tu essayé de selectionner la colonne ensuite
donnés
convertir
délimité ( ne rien mettre )
ensuite date
et
terminé.

A + Victor

 

[Gérard DEZAMIS]

Bonjour Victor
Bonjours à tous

Bien vu cette 'astuce', je note, mais ....

le 10605 se transforme en 10/06/05 donc .....


@+ GD

 

[Tibo]

Bonjour à tous,

J'hésite à me lancer dans le concours de la formule la plus courte, surtout après Monique, mais je crois pouvoir faire plus court :

=DATE(DROITE(A1;2)+100;DROITE(ENT(A1/100);2);ENT(A1/10000))

(59 caractères)

Ai-je bien répondu à la question :unsure: ou bien n'ai je rien compris :whistle:



A bientôt

 

[Monique]

Bonjour,

Tout bon, tout beau, bravo, Tibo !