Format heure

Modeste geedee

XLDnaute Barbatruc

• 11 Février 2013

• #2

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

 

Vote positif 0 Vote négatif

Y

ymrabet

XLDnaute Nouveau

• 11 Février 2013

• #3

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

 

Vote positif 0 Vote négatif

A

Abel

XLDnaute Accro

• 11 Février 2013

• #4

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 ?

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 11 Février 2013

• #5

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é ???

 

Vote positif 0 Vote négatif

Y

ymrabet

XLDnaute Nouveau

• 11 Février 2013

• #6

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

 

Vote positif 0 Vote négatif

Y

ymrabet

XLDnaute Nouveau

• 11 Février 2013

• #7

Re : Format heure

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

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 11 Février 2013

• #8

Re : Format heure

ymrabet à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Y

ymrabet

XLDnaute Nouveau

• 11 Février 2013

• #9

Re : Format heure

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

 

Vote positif 0 Vote négatif

Y

ymrabet

XLDnaute Nouveau

• 11 Février 2013

• #10

Re : Format heure

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

UserForm2.WindowsMediaPlayer2.Controls.currentPosition = retoursecondes

 

Vote positif 0 Vote négatif