ComboBox en format heure

Bonjour,

J'ai trouvé sur internet (je ne sais pas si je peux citer la source? ) un code VBE qui correspond à ce que je souhaite faire. Cependant, le format de ma ComboBox4 est au format heure "hh:mm" et je ne sais pas comment le dire dans le code. J'ai rajouté un

Private Sub ComboBox4_Click()
ComboBox4.Value = Format(ComboBox4.Value, "hh:mm")
End Sub

qui me permet d'avoir le bon format une fois l'heure sélectionné, et de reporter effectivement l'heure au format heure dans la colonne souhaitée.

Cependant, lorsque l'on choisi les heures elles sont affichés en format décimal et lorsque je choisi une horaire en premier les combobox Nom, An et Domaine sont vides.

Merci.

Bonjour

Dans l'USF modifie la Sub filtre comme ceci :

Sub filtre()
   ligne = 0
   Me.ListBox1.Clear
   For i = 1 To [bd].Rows.Count
     ok = True
     For n = 1 To [bd].Columns.Count
         If Not Range("bd").Cells(i, n) Like Me("comboBox" & n) Then ok = False
     Next n
     If ok Then
       Me.ListBox1.AddItem
       'MsgBox [bd].Columns.Count
       For k = 1 To [bd].Columns.Count
       If k = 4 Then
       Me.ListBox1.List(ligne, k - 1) = Format(Range("bd").Cells(i, k), "hh:mm")
         Else: Me.ListBox1.List(ligne, k - 1) = Range("bd").Cells(i, k)
        End If
       Next k
       ligne = ligne + 1
      End If
   Next i
   'On Error Resume Next
 End Sub

J'ai aussi désactivé le On error resume next qui ne me semble pas servir dans ton cas

Sinon j'aurais mis la SUB dans un module plutôt que dans l'USF mais bon...

Si ok, merci de cloturer le fil en cliquant sur le V vert à coté du bouton EDITER

Amicalement

Merci Dan! =)