(vba excel)pb conversion heure

pb conversion heure (vba excel) - VB/VBA/VBS - Programmation

Marsh Posté le 20-06-2006 à 17:10:01    

Bonjour,
 
je souhaite convertir des infos en vba ds une cellule excel formatée  "d/m/yy h:mm;@"  (correspondant à "jj/mm/aaaa hh:mm:ss" )
je veux reccuperer uniquement les heures et la dizaine des minutes  
par exemple pour "20/06/2006 17:13:55", je veux que cela devienne "17:10" cad car je fais des tris par dizaine de minutes.
Jai essayé ca
 

Code :
  1. newsheet.Cells(x, y).NumberFormat = "d/m/yy h:mm;@"
  2.           TabRes = Split(Cells(x, y), " " )
  3.            Cells(x, y) = Mid(TabRes(1), 1, 4)
  4.            Cells(x, y).Select
  5.            Selection.NumberFormat = "hh:m"


 
masi jobtiens des cellules qui affiche 17:1 mais qui ont en donnée "17:01:00" au lieu de "17:1" et comment rajouter le zero
 
merci pour tout aide  
 
 
Alex
 
 

Reply

Marsh Posté le 20-06-2006 à 17:10:01   

Reply

Marsh Posté le 20-06-2006 à 18:21:17    

Bonsoir,
je partirai plutôt sur une base comme celle là :

Code :
  1. Cells(x, y) = Format(Hour(Cells(x, y)), "00" ) & ":" & Format(Minute(Cells(x, y)), "00" )
  2. Cells(x, y).NumberFormat = "hh:mm" 'facultatif


 
Normalement si tu ne passes pas par cette ligne :
newsheet.Cells(x, y).NumberFormat = "d/m/yy h:mm
 
Cette ligne sera inutile  
Cells(x, y).NumberFormat = "hh:mm"
 
A+


---------------
roger
Reply

Sujets relatifs:

Leave a Replay

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