Bonsoir a tous,
Je rencontre un soucis avec les heures qui sont récupérées en décimale dans mes TextBox.
Explication :
J'ai 2 USF, un ou l'on va saisir notre nom et la validation va saisir dans mon tableur sur la première ligne vide le nom, la date et l'heure de saisie. Ensuite le 2éme USF sert a la consultation. En saisissant un nom dans la TextBox1 la macro va chercher la date et l'heure correspondant dans le classeur et reporter ces infos dans les TexBox2 et 3. Le problème est que l'horaire est récupéré en format décimale !
Çà a l'air d'être un truc complétement idiot, mais je n'arrive pas a résoudre ce beugue !
Voici le détail des codes :
USF1 :
Private Sub CommandButton1_Click()
Dim L As String
L = Sheets("feuil1").Range("a65536").End(xlUp).Row + 1
If TextBox1 = "" Then
Unload Me
Else
Sheets("feuil1").Range("A" & L).Value = TextBox1
Sheets("feuil1").Range("B" & L).Value = Format(Now, "hh:mm")
Sheets("feuil1").Range("C" & L).Value = Format(Now, "dd/mm/yyyy")
End If
End Sub
USF2 :
Private Sub CommandButton1_Click()
Unload Me
UserForm1.Show
End Sub
'**********************************************************************************************************
'* *
'* Programme de recherche des infos *
'* *
'**********************************************************************************************************
Private Sub TextBox1_Change()
Dim cel As Range
Dim i As Integer
TextBox1.Value = UCase(TextBox1)
For i = 2 To 3
Me.Controls("TextBox" & i) = ""
Next i
With Sheets("feuil1")
Set cel = .Columns("A").Find(what:=Me.TextBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then
For i = 2 To 3
Me.Controls("TextBox" & i) = .Cells(cel.Row, i)
Next i
End If
End With
End Sub
En vous remerciant et vous souhaitant une bonne soirée