Convertire Nombre au heure
Bonjour
j'ai essayé de convertir nombre au heure mais impossible
aide moi cvp
Merci à vous
Cordialement
Bonjour,
Apparemment ton heure peut être > 24:00, donc :
[A1] = Split(textbox1.text, ":")(0) / 24 + Split(textbox1.text,, ":")(1) / 1440avec la cellule auformat personnalisé [h]:mm
eric
BONJOUR
Exactement j'ai les heures sup a 24H
Tu peux introduise dans le fichier
je ne comprend pas ou poser cette ligne
cordialement
Je n'avais pas vu le fichier.
Si c'est pour mettre dans les Listbox ou Textbox c'est la conversion inverse qu'il te faut alors.
Soit t ton temps numérique :
Application.Text(t, "[h]:mm")eric
Je ne vais pas éplucher tout ton code, tu le connais mieux que moi.
Exemple, dans Sub SumIf_Amount() :
Me.ListBox1.List(r, 2) = Application.Text(F, "[h]:mm")Dans Private Sub ListBox1_Click() :
For r = 2 To 5
Me.ListBox2.List(ListBox2.ListCount - 1, r - 2) = Feuil1.Cells(i, r)
Next r
Me.ListBox2.List(ListBox2.ListCount - 1, r - 2) = Application.Text(Feuil1.Cells(i, r), "[h]:mm")
S'il y en a d'autres tu appliques le même traitement.
eric