Format heure

[ymrabet]

Bonjour

Comment convertir une valeur heure (au format hh:mm:ss,, exemple 00:02:30) en nombre de seconde
PS: je suis sur VB avec une listbox
Merci

 

[Modeste geedee]

Re : Format heure

Bonsour®

literalement comme à l'école primaire :
combien de fois y-a-t-il de 1 seconde dans Valeur_heure ?

Sub heure_en_sec()
Dim Valeur_Sec As Double
Valeur_Sec = TimeValue("00:02:30") / TimeValue("00:00:01")
MsgBox Valeur_Sec
End Sub

 

[ymrabet]

Re : Format heure

impec merci effcetivement
juste une petite precision: j'ai ma valeur hh:mm:ss dans une liste box: j'utilise alors le code suivant:
TimeValue(UserForm2.ListBox4.List(i))/TimeValue("00:00:01")
mais j'ai une erreur de compatibilité de type....help

 

[Abel]

Re : Format heure

Bonjour le fil,

D'où vient l'information de la listbox.
C'est l'utilisateur qui la rentre ou ça vient d'un import.

L'incompatibilité d'humeur vient vient peut être de formats d'informations différents.

Abel.

Edit : un exemple ?

 

[Modeste geedee]

Re : Format heure

Bonsour®
inserer un debug.print avant l'instruction à fin de voir effectivement le contenu réel de UserForm2.ListBox4.List(i)

NB : pourquoi anthony999c se réjouit-il d'une erreur de compatibilité ???

 

[ymrabet]

Re : Format heure

l'info vient d'un import d'un combobox vers la listbox

h = UserForm2.Spreadsheet6.Cells(i, refcolonnection)

ListBox4.AddItem (Format(h, "hh:mm:ss"))

je souhaite retourner dans un TextBox12 la valeur en seconde d'un element de la listbox4

 

[ymrabet]

Re : Format heure

le contenu réel de UserForm2.ListBox4.List(i) est 00:02:30

 

[Modeste geedee]

Re : Format heure

le contenu réel de UserForm2.ListBox4.List(i) est 00:02:30

essaie alors simplement :
UserForm2.ListBox4.List(i)/TimeValue("00:00:01")

 

[ymrabet]

Re : Format heure

euuuu tj la meme erreur imcompatibilité de type :
retoursecondes = UserForm2.ListBox4.List(i) / TimeValue("00:00:01")

 

[ymrabet]

Re : Format heure

en faite c'est pour lire une video a partir de retoursecondes

UserForm2.WindowsMediaPlayer2.Controls.currentPosition = retoursecondes