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

NONO14 · 9 Octobre 2024

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

VB:

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

TooFatBoy · 9 Octobre 2024

Bonjour,

Ta macro de #1 :

VB:

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 ListBox avec les données du TS
        For I = 1 To UBound(Data, 1)
            .Lst_Employ.AddItem
            For Col = 1 To 4
                ' On formate la 4e colonne au format "[h]:mm"
                If Col = 4 Then...

patricktoulon · 9 Octobre 2024

@vgendron
25:33:55 n'est pas un timecode
c'est une représentation graphique que l'on peut apparenter a un certains temps écoulé
qui n'est valable que pour le lecteur qui l'interprétera
d'ailleurs même 24:00:00 n'existe pas le max c'est 23:59:59.999999
et si c’était vraiment des données de temps écoulé, elles seraient déjà au format dans les cellules et donc du texte et donc par définition au bon format dans la colonne de la listbox

TooFatBoy · 9 Octobre 2024

Bonjour,

Ta macro de #1 :

VB:

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 ListBox avec les données du TS
        For I = 1 To UBound(Data, 1)
            .Lst_Employ.AddItem
            For Col = 1 To 4
                ' On formate la 4e 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

doit pouvoir être remplacée par celle-ci :

VB:

Sub RempliListBox()
    UfGestTemps.MultiPage1.Pages(0).Lst_Employ.RowSource = Range("t_Noms").Address(, , , True)
End Sub

patricktoulon · 9 Octobre 2024

re
ou

VB:

Sub RempliListBox()
    UfGestTemps.MultiPage1.Pages(0).Lst_Employ.List = Range("t_Noms").Value
End Sub

car rowsource lui interdirais de modifier les données dans la combo

NONO14 · 9 Octobre 2024

patricktoulon à dit:
re
ou

VB:

Sub RempliListBox() UfGestTemps.MultiPage1.Pages(0).Lst_Employ.List = Range("t_Noms").Value End Sub

car rowsource lui interdirais de modifier les données dans la combo

Avec ce code, je n'ai que la 1ère colonne de mon tableau "t_Noms" dans la ListBox et j'ai besoin des 4 colonnes. Peut-être ai-je mal compris ton code.

NONO14 · 9 Octobre 2024

TooFatBoy à dit:

Bonjour,

Ta macro de #1 :

VB:

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 ListBox avec les données du TS
        For I = 1 To UBound(Data, 1)
            .Lst_Employ.AddItem
            For Col = 1 To 4
                ' On formate la 4e 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

doit pouvoir être remplacée par celle-ci :

VB:

Sub RempliListBox()
    UfGestTemps.MultiPage1.Pages(0).Lst_Employ.RowSource = Range("t_Noms").Address(, , , True)
End Sub

Avec ce code, je n'ai que la 1ère colonne de mon tableau "t_Noms" dans ma ListBox.

patricktoulon · 9 Octobre 2024

re

VB:

Sub RempliListBox()
 with  UfGestTemps.MultiPage1.Pages(0).Lst_Employ
  .columncount=4
  .List = Range("t_Noms").Value
 end with
End Sub

NONO14 · 9 Octobre 2024

patricktoulon à dit:

re

VB:

Sub RempliListBox()
 with  UfGestTemps.MultiPage1.Pages(0).Lst_Employ
  .columncount=4
  .List = Range("t_Noms").Value
 end with
End Sub

Merci ça fonctionne mieux comme ça. Par contre, la 4ème colonne n'est pas au format [h]:mm, il va falloir que j'y ajoute le code de formatage proposé plus haut.

TooFatBoy · 9 Octobre 2024

NONO14 à dit:
Avec ce code, je n'ai que la 1ère colonne de mon tableau "t_Noms" dans ma ListBox.

Probablement as-tu oublié de définir le nombre de colonnes dans VBE.

NONO14 · 9 Octobre 2024

TooFatBoy à dit:
Probablement as-tu oublié de définir le nombre de colonne dans VBE.

Oups ! Oui.

NONO14 · 9 Octobre 2024

NONO14 à dit:
Oups ! Oui.

Effectivement ça fonctionne mieux.
Encore un problème de réglé.
Merci à tous pour vos contributions

ChTi160 · 9 Octobre 2024

bonjour le Fil
ou alors tu mets la propriété "ColumnWidths" en forme directement dans la Procédure

VB:

Sub RempliListBox()
 With  UfGestTemps.MultiPage1.Pages(0).Lst_Employ
         .Columncount=4
         .ColumnWidths="150;150;150;150" 'pour l'exemple (non testé)
         .List = Range("t_Noms").Value
 end with
End Sub

Dans ce Fil j'avais utilisé cette méthode
Le Lien : #36
Edit : a quoi te sert le CodeAgent qui s'affiche partout ?
Bonne fin de Journée
Jean marie

NONO14 · 9 Octobre 2024

ChTi160 à dit:
bonjour le Fil
ou alors tu mets la propriété "ColumnWidths" en forme directement dans la Procédure

VB:

Sub RempliListBox() With UfGestTemps.MultiPage1.Pages(0).Lst_Employ .Columncount=4 .ColumnWidths="150;150;150;150" 'pour l'exemple (non testé) .List = Range("t_Noms").Value end with End Sub

Dans ce Fil j'avais utilisé cette méthode
Le Lien : #36
Bonne fin de Journée
Jean marie

Oui effectivement. Mais j'ai utilisé directement les propriétés de la ListBox
Encore merci

NONO14 · 9 Octobre 2024

ChTi160 à dit:
Re
Formule que j'ai mis dans la cellule H2 de ta feuille "Accueil"

VB:

=NOMPROPRE(TEXTE(AUJOURDHUI();"jjjj jj mmmm aaaa"))

jean marie

Pourquoi ? Ma formule n'est pas bonne ?

ChTi160 · 9 Octobre 2024

Re
Si elle est bien et simple !
n'y pense plus .
Bonne continuation
jean marie

NONO14 · 9 Octobre 2024

ChTi160 à dit:
Re
Si elle est bien et simple !
n'y pense plus .
Bonne continuation
jean marie

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

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

NONO14

XLDnaute Impliqué

TooFatBoy

patricktoulon

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

patricktoulon

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

TooFatBoy

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

NONO14

XLDnaute Impliqué

ChTi160

XLDnaute Barbatruc

NONO14

XLDnaute Impliqué

Discussions similaires