Format heure dans Tesxtbox

[piga25]

Format heure dans Textbox

Bonjour,

Malgré tous les posts concernant ce sujet, je n'ai pas trouvé une réponse à mon problème.

J'ai un Userform multipage qui me permet d'effectuer des recherches, jusque là tout va bien, ou je rencontre un problème c'est lorsque dans la TextBox16 je récupère les données qui sont en format hh:mm sur ma feuille, mais lorsqu'elle vont sur la TextBox16, cela m'indique False.

Ci joint le code utilisé :

Private Sub ComboBox4_Change()
Dim Lig
[COLOR=red]Dim v As Double[/COLOR]
If ComboBox4.ListIndex = -1 Then Exit Sub
TextBox14 = ComboBox4.List(ComboBox4.ListIndex, 2)
Lig = ComboBox4.List(ComboBox4.ListIndex, 2)
TextBox15 = Feuil2.Cells(Lig + 1, "C")
TextBox16 = Feuil2.Cells(Lig + 1, "G") [COLOR=red]= Int(CDec(24 * v)) & ":" & Format(Minute(v), "00")[/COLOR]
End Sub
 
Private Sub TextBox13_Change()
Dim c, firstAddress
ComboBox4.Clear
TextBox14 = ""
If TextBox13 = "" Then Exit Sub
With Feuil2.Range("I2:I" & Range("I65000").End(xlUp).Row)
    Set c = .Find(TextBox13, LookIn:=xlValues, lookat:=xlPart)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ComboBox4.AddItem c.Value
            ComboBox4.List(ComboBox4.ListCount - 1, 1) = c.Offset(, -4)
            ComboBox4.List(ComboBox4.ListCount - 1, 2) = c.Row - 1 'Pour récupérer le N° de ligne
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

Sans la partie du code en rouge, j'ai les données qui sont au format centième.

 

[Bebere]

Re : Format heure dans Tesxtbox

bonjour Piga
si tu as le format hh:mm,alors
TextBox16 = Feuil2.Cells(Lig + 1, "G").text
suffit
à bientôt

 

[piga25]

Re : Format heure dans Tesxtbox

Bonjour Bebere, le fil

Aussi simple que cela et je n'ai pas trouvé.
En tout cas merci Bebere cela fonctionne parfaitement.

 

[piga25]

Re : Format heure dans Tesxtbox

re
bonjour carcharodon-carcharias

OUI je connais, c'est Youky (BJ) qui m'a fait connaître DTPicker
http://www.excel-downloads.com/forum/139900-probl-me-de-macro-dans-fichier-main-courante-2.html#post828493

mais je ne l'utilise pas partout car mes collègues spéléos ne souhaitent pas l'instaler sur leur ordi.

PS: Tout dépend de la grotte, vers chez moi beaucoup sont des rivières souterraine, donc lorsque l'on ressort ont est tout propre. Mais pour la pèche pas beaucoup de poisson sous terre.
J'ai bientôt fini mes applis pour le secours spéléo si cela interresse ...