Bonjour

Voilà cela fait plusieurs jours que je me prend la tête avec ma Listbox.

J'envoie par Macro des donnée type =Time, cela s'affiche correctement dans ma feuille de calcul, mais dans la Listbox cela s'affiche en nombre : Style 2,4568.
Avez une idée du pourquoi.
Cordialement.

Voici comment je récupère les donnée de ma Listbox

La feuille de donnée change chaque jour.
La première colonne c'est du texte (Nom - Prénom )
les quatre autre sont au format heure.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
With LB_Convoc
    .List() = ws.Range("A1:M15").Value
    '.ColumnHeads = True ' Affiche les étiquettes de colonnes
    .ColumnWidths = "200;70;70;70;70" ' Largeur des colonnes
    '.BoundColumn(2) = Format("[hh]:mm") 'Selection.NumberFormat = "mmm-yy"
 
End With
Ci joint le code complet pour info.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
Private Sub CB_Valider_Click() 'Arrivée
 
DateJour = Date
JourDate = Left(DateJour, 2) & "-" & Mid(DateJour, 4, 2) & "-" & Mid(DateJour, 7, 4) ' Converti la Date en Texte pour l'onglet
 
Worksheets(JourDate).Select
nom = Lab_TTS.Caption
'---------------------Recherche les personne convoquées et leur mot de passe-----------------------
If TB_MDP.Value = Lab_MDP.Caption Then 'Si la valeur est égal au Mot de Passe Ok
    With Sheets(JourDate)
            'Chercher son nom dans la feuille Conso colonne A
            Set c = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row).Find( _
                            what:=nom, _
                            After:=.Range("A2"), _
                            LookIn:=xlValues, _
                            lookat:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
'-----------------------------------------------------------------
                        If nom = "" Then
                        MsgBox "Le Nom n'a pas été trouvé !!"
                        Exit Sub
                        Else
                        HA = c(1, 3) 'Je récupère l'heure d'arrivée
                       'Lab_MDP = c(1, 10) 'j'envoie le Mot de Passe dans le Lab Mot de Passe
                        End If
'-------------------------------------------------------------------
    End With
 
If c(1, 3) = "" Then ' Verifie que l'eure d'arrivée soit inscrit.
 
'---------------------------- Si l'heures d'arrivée n'est pas encore inscrite -------------------------------
                If c(1, 2) > Time And c(1, 3) = "" Then
                    c(1, 3) = c(1, 2)
                Else
                    c(1, 3) = Time
                End If
'---------------------------- Si l'heures d'arrivée est inscrite -------------------------------
Else
'---------------------------- Inscrit l'heure de départ---------------------------------------------
 HD = Time
 HD = Format(HD, "hh:mm")
        If c(1, 4) = "" Then
           c(1, 4) = HD
           'c(1, 4) = Format(c(1, 4), "hh:mm")
           c(1, 5).FormulaR1C1 = "=IF(RC4-RC3>Constante!R1C13,(RC4-RC3)-Constante!R1C11,RC4-RC3)"
      End If
 
 
'------------------------------------Rempli la feuil Base de Donnée------------------------------------------------
'HA = Frame1.Lab_HA
HD = Time
JMA = DTPicker_Date
JMA = Format(JMA, "mm/dd/yyyy")
 
Sheets("BD").Select
With Sheets("BD")
 
            Set c = .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row)(2)
 
            'y mettre le nom
            c.Value = JMA
            c(1, 2).FormulaR1C1 = "=CHOOSE(MONTH(RC[-1]),""janvier"",""février"",""mars"",""avril"",""mai"",""juin"",""juillet"",""aout"",""septembre"",""octobre"",""novembre"",""décembre"")"
            c(1, 3).FormulaR1C1 = "=YEAR(RC[-2])"
            c(1, 4).FormulaR1C1 = "=IF(WEEKDAY(RC[-3],2)=7,""Dimanche"",IF(ISNA(VLOOKUP(RC[-3],JoursFerie,1,FALSE)),""Normal"",""Férié""))"
 
 
 
 
            If Lab_TTS = "" Then
            MsgBox "Veuillez sélectionner un Nom"
            Else
            c(1, 5) = Lab_TTS
            End If
            c(1, 6) = HA
            c(1, 7) = HD
            c(1, 8).FormulaR1C1 = "=IF(RC[-1]-RC[-2]>Constante!R1C13,Constante!R1C11,0)" 'Pause
            c(1, 9).FormulaR1C1 = "=IF(OR(WEEKDAY(RC[-8],2)=7,RC[-5]=""Férié""),RC[1],IF(RC[-2]>Constante!R1C15,MOD(MIN(RC[-2],Constante!R1C17)-MAX(RC[-3],Constante!R1C15),1),""""))"
            c(1, 10).FormulaR1C1 = "=IF(RC[-3]="""","""",MOD(RC[-3]-RC[-4],1)-RC[-2])"
            c(1, 11).FormulaR1C1 = "=IF(RC[-2]="""",RC[-1],RC[-2]+RC[-1])"
            c(1, 12).FormulaR1C1 = "=RC[-1]/Constante!R1C[-7]"
Range(c(1, 1), c(1, 12)).Select
Call Cadre
 
 
Sheets("Personnel").Select
 
End With
End If
'--------------------------- Fin du Pointage des heures --------------------------------------------------
 
Else
        MsgBox "Mauvais Mot de passe"
        Frame.TB_MDP = ""
        Exit Sub
    End If
 
 
 
Frame_MDP.Visible = False
ActiveWorkbook.Save
Unload Pointeuse2
LB_Convoc.Visible = True
TextBox_Mot_de_passe = ""
Pointeuse2.Show
 
End Sub