vba excel pb conversion heure

**DirtyA:ex** · 22/06/2006, 14h38

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 :

newsheet.Cells(x, y).NumberFormat = "d/m/yy h:mm;@"
TabRes = Split(Cells(x, y), " " )
Cells(x, y) = Mid(TabRes(1), 1, 4)
Cells(x, y).Select
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

**illight** · 22/06/2006, 14h57

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(x, y) = Mid(TabRes(1), 1, 5)

Tu t'es trompé

faut en prendre 5 de caractères pas 4

Sinon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Selection.NumberFormat = "hh:m"

Si tu met "hh:mm" ? t'a pas le bon format ?

**DirtyA:ex** · 22/06/2006, 15h10

justement cest intentionnel ds prendre que 4,
en fait je reccupere des heures que je classe ds une colonne dexcel avec des valeurs correspondantes ds une autre
je fais des moyennes de ces valeurs, par dizaine de minutes. cest à dire que je recois des heures hh:mm:ss et moi je nai besoin que de hh:m (donc que les dizaines de minutes) pour faire mes moyennes. je nai pas besoin et je ne veux pas voir apparaitre une difference entre par exemple 17h51 et 17h54 :pour ces deux valeurs je veux qu'elles deviennent 17h50

Alex

**Nesejet** · 22/06/2006, 15h17

Si tu prends HH:m, tu auras les minutes, pas les dizaines de minutes.
Recupéres hh:mm et fait ton formatage ensuite...

**DirtyA:ex** · 22/06/2006, 15h21

non je recupere bien les dizaines de minutes comme voulu (il reccupere les dizaines de minutes mais elle devienne des minutes)
le probleme cest justement au niveau du formatage

comment transformer 17:05:00 en 17:50:00 ??
ou alors je reccupere toutes les minutes hh:mm mais comment formater
17:51:00 en 17:50:00 ?

**ouskel'n'or** · 22/06/2006, 15h32

Ton format qui va pas
Là tu as même les secondes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Format(Now, "hh:nn:ss")

Là tu as les minutes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Format(Now, "hh:nn")

Pour les minutes, c'est "nn", pas "mm"

**DirtyA:ex** · 22/06/2006, 15h38

"mm" marche tres bien pour reccup les minutes,
je suis pas sur que tu es bien saisi mon pb, cela est surement du a ma facon de le presenter merci qd meme dessayer de maider

**DirtyA:ex** · 22/06/2006, 15h44

c bon jai reussi

Code:

Cells(x, y) = Mid(TabRes(1), 1, 4) & "0"
Cells(x, y).Select
Selection.NumberFormat = "hh:mm"

merci a ceux ki ont essayé de maider

**jmfmarques** · 22/06/2006, 15h46

MsgBox Format(Now, "hh") & ":" & Format(Int(Val(Format(Now, "nn")) / 10) * 10, "00")
ou encore mieux (car on garde un format time :

MsgBox Format(TimeValue(Mid(Format(Now, "hh:mm"), 1, 4)), "hh:mm")