convertir texte en date (EXcel VB)

PascalXLD

XLDnaute Barbatruc

• 10 Février 2006

• #2

Bonjour

lorsque tu passes par l'enregistreur de macro pour ouvrir ton fichier txt tu mets bien tes colonnes ou il y a des dates au bon format ou tu laisses standard ??

 

Vote positif 0 Vote négatif

C

Creepy

XLDnaute Accro

• 10 Février 2006

• #3

Bonjour,

dans ton code essaie de mettre ca pour envoyer directement à la cellule le bon format date.

Code:

dede = format(CDate(dede),' jj/mm/aaaa')

@+

Creepy

 

Vote positif 0 Vote négatif

J

jb

Guest

• 10 Février 2006

• #4

Pascal,

J'ouvre le fichier txt au format texte pour les dates car si je le l'ouvre au format date XL ne reconnait par correctement les dates, et inverse les mois et les jours. JB.

 

Vote positif 0 Vote négatif

J

jb

Guest

• 10 Février 2006

• #5

Creepy,

J'ai essayé en vain ; à moins que je l'ai mal utilisée ? Je l'ai associée à NumberFormat. Faut-il faire autrement ?

Merci. JB.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 10 Février 2006

• #6

Re

QUand tu choisis ton format en pricipe tu peux lui indiquer pour ta colonne que c'est un format date et choisir ton format dma

 

Vote positif 0 Vote négatif

J

jb

Guest

• 10 Février 2006

• #7

Re pour Pascal

Oui, mais cela ne fonctionne pas non plus !!!

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 10 Février 2006

• #8

Re

alors là bizarre

J'avais le même problème que toi et cette manip me l'avait resolu.

Donc si je comprends bien aujourd'hui tu as tes dates mais au format texte.

Il suffirait peut-être ensuite pour toute ta colonne de faire une boucle du style

for x = 2 to range('A65536').end(xlup).row
cells(x,tacolonne)=cdate(cells(x,tacolonne))
next x

Bon courage

Message édité par: Pascal76, à: 10/02/2006 11:36

 

Vote positif 0 Vote négatif

J

jb

Guest

• 10 Février 2006

• #9

Re:

Merci Pascal. Cela a fonctionné pour 1 cellule, mais cela plante pour la colonne entière. Mais je pense que c'est une bonne piste.

Merci beaucoup. JB.

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 10 Février 2006

• #10

re

peux-tu avoir des cellules sans date ??

si oui il faudrait faire un test avant

 

Vote positif 0 Vote négatif

J

jb

Guest

• 10 Février 2006

• #11

oui effectivement j'en ai et cela met par défaut 00/01/1900. Tu crois qu'il faut rajouter un test de cellule du type si cellule vide alors passer ?

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 10 Février 2006

• #12

Re

oui du style

for x = 2 to range('A65536').end(xlup).row
if cells(x,tacolonne) sigle différent '' then cells(x,tacolonne)=cdate(cells(x,tacolonne))
next x

 

Vote positif 0 Vote négatif