Microsoft 365 Mettre la 4ème colonne d'une ListBox au format [h]:mm

[NONO14]

Bonjour à toutes et à tous,

Dans mon application j'ai supprimé la ComboBox (ceux qui me suivent comprendront - https://excel-downloads.com/threads...omboBox à 3 colonnes avec les données d'un TS ) et je l'ai remplacé par une ListBox.
La ListBox est bien alimentée selon le code ci-joint, cependant je souhaiterai que la 4ème colonne soit au format [h]:mm.
Avec le code ci-joint, la 4ème colonne donne le résultat ":12".
Qu'ai-je fais qui ne convienne pas ?
Merci par avance pour votre aide

Sub RempliListBox()
Dim Ws As Worksheet
Dim Tbl As ListObject
Dim I As Long, Col As Long
Dim Data As Variant

'Définir la feuille de calcul et le tableau structuré
    Set Ws = Sheets("Liste_agents")
    Set Tbl = Ws.ListObjects("t_Noms")
   
'On récupére les données du TS
    Data = Tbl.DataBodyRange.Value
   
   
    With UfGestTemps.MultiPage1.Pages(0)

'On définie le nbre de colonnes de la ListBox
    .Lst_Employ.ColumnCount = 4

'On remplit la ListeBox avec les données du TS
    For I = 1 To UBound(Data, 1)
        .Lst_Employ.AddItem
            For Col = 1 To 4

'On formate la 4ème colonne au format "[h]:mm"
                If Col = 4 Then
                    .Lst_Employ.List(I - 1, Col - 1) = Format(Data(I, Col), "[h]:mm")
                Else
                    .Lst_Employ.List(I - 1, Col - 1) = Data(I, Col)
                End If
            Next Col
    Next I
End With
End Sub

 

[ChTi160]

Re
As tu regardé ce quelle fait , par rapport à la formule très simple "=Aujourdhui()"
mais si cette affichage te convient c'est ton Projet !
tu dis :

Tu as certainement eu une idée en faisant ça

juste l'idée de formater la Date autrement !
bonne continuation
Jean marie

 

[TooFatBoy]

Qu'elle est l'intérêt de ta proposition ? Tu as certainement eu une idée en faisant ça

Je profite de votre digression pour en apporter une nouvelle. 😉


- Quand le UserForm de saisie du MdP s'affiche, le champ de saisie a-t-il le focus chez toi ?
(pas chez moi)

- Si tu valides la saisie par la touche <Entrée>, cela valide-t-il immédiatement la saisie ?
(chez moi je dois appuyer une seconde fois)

- Si tu appuies sur la touche <Echap>, cela ferme-t-il le UserForm ?
(chez moi il ne se passe rien. Je suis obligé d'aller cliquer sur le bouton "Annuler")

 

[NONO14]

Re
As tu regardé ce quelle fait , par rapport à la formule très simple "=Aujourdhui()"
mais si cette affichage te convient c'est ton Projet !
tu dis :

juste l'idée de formater la Date autrement !
bonne continuation
Jean marie

Oui, j'ai mis ta formule dans mon projet. Je voulais juste savoir ce qu'elle faisait de plus, c'est tout, pure curiosité de ma part.
Merci et bonne soirée

 

[ChTi160]

Re
et tu n'as vu aucune différence ?
Jean marie

 

[TooFatBoy]

et tu n'as vu aucune différence ?

Moi j'ai vu : ça remplace une date par du texte.
Et aussi, ça ajoute deux fautes de syntaxes. 😅

 

[NONO14]

Re
et tu n'as vu aucune différence ?
Jean marie

J'ai fait la modification ce soir et la fatigue étant là, je n'ai pas vraiment fais attention. Je regarderai demain plus en détail.
Désolé

 

[TooFatBoy]

J'ai fait la modification ce soir et la fatigue étant là, je n'ai pas vraiment fais attention. Je regarderai demain plus en détail.

N'es-tu donc point un petit robot ??? 😳

 

[NONO14]

N'es-tu donc point un petit robot ??? 😳

Je ne le crois pas... mais étant souffrant, je fatigue très vite.

 

[ChTi160]

Re
TooFatBoy
Pour le texte au lieu de date , pas important sur cette feuille !

Et aussi, ça ajoute deux fautes de syntaxes

Donne moi la bonne je suis aussi la pour apprendre (je suis nul en formule) Lol
merci par avance
Jean marie

 

[TooFatBoy]

Donne moi la bonne je suis aussi la pour apprendre (je suis nul en formule) Lol

Pardon, je me suis mal fait comprendre car je n'ai pas été assez précis dans mon propos.

Je ne parlais pas de la syntaxe de la formule, mais de la syntaxe de la phrase affichée : contrairement à mes voisins les Allemands, on ne met pas de majuscules au milieu d'une phrase, et encore moins sur le nom d'un mois. 😉

 

[NONO14]

Pardon, je me suis mal fait comprendre car je n'ai pas été assez précis dans mon propos.

Je ne parlais pas de la syntaxe de la formule, mais de la syntaxe de la phrase affichée : contrairement à mes voisins les Allemands, on ne met pas de majuscules au milieu d'une phrase, et encore moins sur le nom d'un mois. 😉

Ça ne choquera personne

 

[TooFatBoy]

Ça ne choquera personne

Malheureusement je suis persuadé que tu as raison... Et c'est bien triste ! 😭

Mais pourquoi irais-tu complexifier une formule ajoutant deux erreurs de syntaxe, même si personne dans ton entourage ne sera choqué ?

(toi aussi tu bosses avec des Tuche ???)

 

[NONO14]

Je vous laisse en vous souhaitant une bonne nuit de repos.
Je continuerai mon application demain si je ne suis pas trop fatigué.
Merci sincèrement pour l'aide que vous m'apportez

 

[NONO14]

Malheureusement je suis persuadé que tu as raison... Et c'est bien triste ! 😭

Eh oui, que les puristes me pardonne cette faute.
Mais bon il sera toujours possible de modifier.

 

[TooFatBoy]

Eh oui, que les puristes me pardonne cette faute.
Mais bon il sera toujours possible de modifier.

Tu laisses =Ajourdhui() et Molière t'en sera reconnaissant à vie. 😉