fmat texte ver date

fmat texte ver date - VB/VBA/VBS - Programmation

Marsh Posté le 18-11-2007 à 15:26:16    

Bonsoir à tous
 
Je reviens vers vous pour un petit pb de conversion d'une colonne
 
J'ai une colonne, sur une feuille excel, au format texte dans laquelle j'ai en fait des dates. La date est affichée au format jj/mm/aa hh:mm:ss:....
 
exemple: 26/10/07 10:54:01.493
 
Mon but est de ne garder que 26/10/2007 et en format date.  
 
Voici mon bout de code  
 

Code :
  1. With Workbooks("meteor" ).Worksheets(1)
  2. i = 2
  3. Do Until .Cells(i, 1).Value = ""
  4. .Cells(i, 1).Value = CDate(Left(Cells(i, 1), 8))
  5. .Cells(i, 10).Value = CDate(Left(Cells(i, 10), 8))
  6. .Cells(i, 11).Value = CDate(Left(Cells(i, 11), 8))
  7. i = i + 1
  8. Loop
  9. End With


 
Mais ça beugue incomptibilité de type
 
Merci de toute aide :hello:  
 


Message édité par stanislas1111 le 18-11-2007 à 15:27:00
Reply

Marsh Posté le 18-11-2007 à 15:26:16   

Reply

Marsh Posté le 18-11-2007 à 16:55:15    

Chez moi cela marche avec ce code:
 
Sub ess()
i = 1
Do Until Sheets("Feuil1" ).Cells(i, 1).Value = ""
Cells(i, 3) = CDate(Left(Cells(i, 1), 8))
i = i + 1
Loop
End Sub
 
la colonne 1 est au format texte et la colonne 3 au format date
 

Reply

Marsh Posté le 18-11-2007 à 17:51:09    

De plus, si le format par défaut n'est pas le bon, on peut le changer programmatiquement avec

Cells(Row, col).NumberFormat = "dd/mm/yyyy"

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed