Discussion :

[Didpa]

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

[Marc-L]

Bonjour, bonjour !

Pourquoi ?

C'est simple : comme indiqué partout (aide Excel, aide VBA, FAQ et tutoriels de ce forum),
les dates et les heures sont des valeurs numériques !

Dans le code, .Value correspond donc à la valeur numérique.

Pour le format d'affichage, remplacer .Value par .Text … Et voilà !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Demo()
    With [B2]:  Debug.Print .Value, .Text:  End With
End Sub

Et si .Text ne passe pas, utiliser alors la fonction Format (voir aide VBA intégrée) …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Didpa]

merci pour la réponse.

Mais si je me mets en format .text, ma formule ne fonctionnera plus.

De plus j'ai essayé de remplacer .value par .text et cela me renvoie un message d'erreur

.List() = ws.Range("A1:M15").Text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
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

Cordialement

[Marc-L]

Ne pas changer le format des cellules !

Mais utiliser la fonction VBA Format pour alimenter la ListBox …
Peut-être même en utilisant une variable tableau intermédiaire …