Format heure dans un textbox

Bonjour

Voici mon probléme

J'ai un UF qui me permet de saisir puis retrouver des donner.

Les données sont enregister sous l'onglet 'RENSEIGNEMENTS"

Lorsque je saisie l'heure dans l'UF en tapant 22:30 par exemple, l'heure s'enregistre correctement dans l'onglet renseignements.

Lorsque je veux retouver les données, mon UF n'affiche pas le bon format.

Je pense que le texbox9, dans lequel je saisie l'heure est paramétrer au format texte, comme je saisie manuellement la date il l'affiche correctement, mais quand il la récupère automatiquement, il affiche 10:00 au format texte soit 0,4166667

Il faut paramèter avec "'hh:mm" mais où??

merci de votre aide

Bonjour Gérald.q

Dans ton USF "Matricule" il faut changer le code de la sorte

Private Sub CommandButton1_Click()
  Dim Rep As Byte, I As Byte
  If Me.TextBox1.Value = "" Then Exit Sub
  With Sheets("RENSEIGNEMENTS").Range("a2:a65536")
    Set C = .Find(Me.TextBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not C Is Nothing Then
      UserFormFiche_Saisie.TextBox1.Value = UserFormMatricule.TextBox1.Value
      Unload UserFormMatricule
      UserFormFiche_Saisie.TextBox1.Locked = True
      For I = 1 To 10
        If I > 8 Then
          UserFormFiche_Saisie.Controls("TextBox" & I).Value = Format(C.Offset(0, I - 1), "HH:MM")
        Else
          UserFormFiche_Saisie.Controls("TextBox" & I).Value = C.Offset(0, I - 1)
        End If
      Next I
      UserFormFiche_Saisie.Show
    Else
      Rep = MsgBox("Voulez-vous le créer ?", vbYesNo + vbQuestion, "Personnel Inconnu")
      If Rep = vbYes Then UserFormFiche_Saisie.TextBox1.Value = UserFormMatricule.TextBox1.Value: Unload UserFormMatricule: UserFormFiche_Saisie.Show Else Exit Sub
    End If
  End With
End Sub

Ok merci

Mais ce n'est qu'un morceau de mon fichier que je présente

Le problème, lorsque je transpose est que tous les textbox à partir du N°9 sont au format heure

c'est à cause du If I >8

Si je veux que seuls les textbox 9 et 10 soient au format heure qu dois je mettre?

J'ai essayé If 8> I >11, mais cela ne fonctionne pas.

Re,

Le code exacte est

If I  > 8 and I < 10 Then

A+

Merci