vba excel pb conversion heure

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

Code:

---

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

---

Tu t'es trompé :mrgreen: faut en prendre 5 de caractères pas 4 :D
Sinon :

Code:

---

Selection.NumberFormat = "hh:m"

---

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

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

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

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 ?

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

Code:

---

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

---

Là tu as les minutes

Code:

---

MsgBox Format(Now, "hh:nn")

---

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

"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

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

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")

S'il te plait, enlève le select qui ne te sert qu'à alourdir ta procédure

Code:

---

Cells(x, y).NumberFormat = "hh:mm"

---

....................................... ;)