piga25
XLDnaute Barbatruc
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é :
Sans la partie du code en rouge, j'ai les données qui sont au format centième.
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é :
Code:
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 SubSans la partie du code en rouge, j'ai les données qui sont au format centième.
Dernière édition: