Listbox format d'une colonne

Bonjour à tous,

je fais appel à vous pour de l'aide

A l'ouverture de mon fichier ça ouvre directement le UserForm
Dans mon UserForm se trouve un ListBox qui se forme avec ce code (emprunté à M. Boisgonthier)

Private Sub UserForm_Initialize()
  Set f = Sheets("DATA")
  Set Rng = f.Range("A2:J" & f.[A65000].End(xlUp).Row)
  Me.LB_Data.ColumnCount = 10
  Me.LB_Data.ColumnWidths = "70;0;110;70;120;360;60;35;40;40"
  Me.LB_Data.List = Rng.Value
End Sub

Mon soucis est que la dernière colonne doit être au format [h]:mm et pour le moment ça m'affiche (ex.6.94444444444)

comment faire pour que ma dernière colonne affiche le temps du genre 17:45

merci d'avance pour votre aide

Bonjour Mtek, le forum,

A tester:

Option Explicit
Dim Rng As Range, x As Integer, f As Worksheet

Private Sub UserForm_Initialize()
  Set f = Sheets("DATA")
  Set Rng = f.Range("A2:J" & f.Range("A" & Rows.Count).End(xlUp).Row)
   Me.LB_data.ColumnCount = 10
   Me.LB_data.ColumnWidths = "70;0;110;70;120;360;60;35;40;40"
   Me.LB_data.List = Rng.Value
    For x = 0 To Me.LB_data.ListCount - 1
     With Me.LB_data
        .List(x, 9) = Format(.List(x, 9), "hh:mm")
     End With
    Next x
End Sub

source: ric

20listbox.xlsm (19.81 Ko)

Cordialement,

Bonjour,

Côté formule : =HEURE(6,9444/24) & ":" & MINUTE(6,9444/24)

@xorsankukai

Un grand merci, ça exactement ce que je souhaitais
Merci d'avoir mis de ton temps à mon problème.

Rechercher des sujets similaires à "listbox format colonne"